eor_handling_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 15 行

! { dg-do run }
! PR 17992:  Reading an empty file should yield zero with pad='YES'
! (which is the default).
! Test case supplied by [e-mail].
program main
  open(77,status='scratch')
  write(77,'(A)') '',''
  rewind(77)
  i = 42
  j = 42
  read(77,'(/2i2)') i,j
  if (i /= 0 .or. j /= 0) call abort
  close(77)
end program main