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,
10 open (19,status='scratch')
11 write (19,'(A15)') 'E+00'
14 if (a .ne. 0) call abort
19 if (a /= 0) call abort