1c { dg-do run } 2c PR38097 I/O with blanks in exponent fails; BN edit descriptor 3c Test case derived from reporter. 4 character(11) :: a = ' 2. 3 e+ 3' 5 character(11) :: b = ' 2.003 e+ 3' 6 character(11) :: c = ' 2.002 e+1 ' 7 real :: f 8 9 f = 0.0 10 read (a,'(BZ,E11.0)') f 11 if (f .ne. 2003.0) call abort 12 f = 0.0 13 read (a,'(BN,E11.0)') f 14 if (f .ne. 2300.0) call abort 15 f = 0.0 16 read (b,'(BN,E11.0)') f 17 if (f .ne. 2003.0) call abort 18 f = 0.0 19 read (c,'(E11.0)') f 20 if (f .ne. 20.020) call abort 21 f = 0.0 22 read (c,'(BZ,E11.0)') f 23 if (f .ne. 2.002e10) call abort 24 25 end 26c end of program 27 28