diff options
Diffstat (limited to 'gcc-4.8/gcc/testsuite/gfortran.dg/eof_5.f90')
-rw-r--r-- | gcc-4.8/gcc/testsuite/gfortran.dg/eof_5.f90 | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/gcc-4.8/gcc/testsuite/gfortran.dg/eof_5.f90 b/gcc-4.8/gcc/testsuite/gfortran.dg/eof_5.f90 new file mode 100644 index 000000000..88671ba23 --- /dev/null +++ b/gcc-4.8/gcc/testsuite/gfortran.dg/eof_5.f90 @@ -0,0 +1,21 @@ +! { 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 + |