2 ! PR 49296 List formatted read of file without EOR marker (\n).
3 program read_list_eof_1
5 character(len
=100) :: s
11 open (unit
=20, file
='read.dat', form
='FORMATTED', action
='READ', &
14 close (20, status
='delete')
15 if (trim(s
) /= "a") then
20 open (unit
=20, file
='read.dat', form
='FORMATTED', action
='READ', &
23 close (20, status
='delete')
29 open (unit
=20, file
='read.dat', form
='FORMATTED', action
='READ', &
32 close (20, status
='delete')
38 open (unit
=20, file
='read.dat', form
='FORMATTED', action
='READ', &
41 close (20, status
='delete')
47 subroutine genfil(str
)
48 character(len
=*), intent(in
) :: str
49 open(10, file
='read.dat', form
='unformatted', action
='write', &
50 status
='replace', access
='stream')
54 end program read_list_eof_1