gcc/testsuite/gfortran.dg/pr19155.f

   1 ! { dg-do run { target fd_truncate } }
   2 !
   3 ! PR libfortran/19155
   4 ! We accept 'E+00' as a valid real number. The standard says it is not,
   5 ! but doesn't require us to issue an error. Since g77 accepts this as zero,
   6 ! we do the same.
   7       real a
   8       character*10 c
   9       a = 42
  10       open (19,status='scratch')
  11       write (19,'(A15)') 'E+00'
  12       rewind (19)
  13       read (19,'(E15.8)') a
  14       if (a .ne. 0) call abort
  15       close (19)
  16
  17       c = "+         "
  18       read (c,"(F10.4)") a
  19       if (a /= 0) call abort
  20       end