summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/eof_2.f90
blob: b7c2c9172c951934bc716971603ab65a6aacc545 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
! { dg-do run }
! Check that end= and iostat= specifiers are honoured when both are used
program eof_2
  integer ierr, i

  open (11, status="SCRATCH")
  ierr = 0
  read (11, *, end=10, iostat=ierr) i
  call abort
10 continue
  if (ierr .ge. 0) call abort
end program