gcc/testsuite/gfortran.dg/pr19155.f

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