Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/eof_5.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { 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