! { dg-do run } ! ! PR fortran/56696 ! ! Contributed by Keith Refson ! program iotest character(len=258) :: inp = ' 1.0 1.0 1.0' character(len=7) :: inp2 = '1 2 3 4' integer :: ios real :: a1, a2, a3, a4 read(inp2,*,iostat=ios) a1, a2, a3, a4 if (ios /= 0) call abort () read(inp,*,iostat=ios) a1, a2, a3, a4 if (ios == 0) call abort () ! write(*,*) 'IOSTAT=',ios end program iotest