module address_module
type address
    character (len=40) :: name
    character (len=60) :: street
    character (len=60) :: district
    character (len=60) :: city
    character (len=8) :: post_code
end type address
end module address_module

program ch1703
use address_module
implicit none
integer :: n_of_address
type (address), dimension (:), allocatable :: addr
integer :: i

  print *, 'input number of addresses'
  read *, n_of_address
  allocate (addr(1:n_of_address))
  open (unit=1,file='address.txt')
  do i = 1, n_of_address
    read (unit=1,fmt='(a40)') addr(i) %name
    read (unit=1,fmt='(a60)') addr(i) %street
    read (unit=1,fmt='(a60)') addr(i) %district
    read (unit=1,fmt='(a60)') addr(i) %city
    read (unit=1,fmt='(a8)') addr(i) %post_code
  end do
  do i = 1, n_of_address
    print *, addr(i) %name
    print *, addr(i) %street
    print *, addr(i) %district
    print *, addr(i) %city
    print *, addr(i) %post_code
  end do
end program ch1703