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