1! { dg-do run } 2! 3! PR fortran/56696 4! 5! Contributed by Keith Refson 6! 7 8program iotest 9 character(len=258) :: inp = ' 1.0 1.0 1.0' 10 character(len=7) :: inp2 = '1 2 3 4' 11 integer :: ios 12 real :: a1, a2, a3, a4 13 14 read(inp2,*,iostat=ios) a1, a2, a3, a4 15 if (ios /= 0) call abort () 16 17 read(inp,*,iostat=ios) a1, a2, a3, a4 18 if (ios == 0) call abort () 19! write(*,*) 'IOSTAT=',ios 20end program iotest 21 22