1! { dg-do run } 2! Handle eor and eof conditions with missing eor in file. 3! Test case modified from case presented by Ian Harvey on clf. 4program eieio_stat 5 use, intrinsic :: iso_fortran_env, only: iostat_end, iostat_eor 6 implicit none 7 integer, parameter :: unit=10 8 integer :: ios1, ios2, ios3 9 character(25) :: buffer 10 character(100) :: themessage 11 !**** 12 open(10,file="eieio", form="unformatted", access="stream", status="replace") 13 write(10) "Line-1" // char(10) 14 write(10) "Line-2" 15 close(10) 16 17 open(10,file="eieio") 18 19 buffer = 'abcdefg' 20 read (unit,"(a)",advance="no",iostat=ios1, pad="yes") buffer 21 if (ios1 /= iostat_eor .and. buffer /= "Line-1") call abort 22 23 buffer = '<' 24 read (unit,"(a)",advance="no",iostat=ios2,pad="yes") buffer 25 if (ios2 /= iostat_eor .and. buffer /= "Line-2") call abort 26 27 buffer = '5678' 28 read (unit,"(a)",advance="no",iostat=ios3, iomsg=themessage) buffer 29 if (ios3 /= iostat_end .and. buffer /= "5678") call abort 30 31 rewind(10) 32 33 buffer = "abcdefg" 34 read (unit,"(a)",advance="no",iostat=ios1, pad="no") buffer 35 if (ios1 /= iostat_eor .and. buffer /= "abcdefg") call abort 36 37 buffer = '<' 38 read (unit,"(a)",advance="no",iostat=ios2,pad="no") buffer 39 if (ios2 /= iostat_eor .and. buffer /= "<") call abort 40 41 buffer = '1234' 42 read (unit,"(a)",advance="no",iostat=ios3, iomsg=themessage) buffer 43 if (ios3 <= 0 .and. buffer /= "1234") call abort 44 45 close(unit, status="delete") 46end program eieio_stat 47