gcc/testsuite/gfortran.dg/fmt_bz_bn.f

   1 c     { dg-do run }
   2 c     PR38097 I/O with blanks in exponent fails; BN edit descriptor
   3 c     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. 2.0020) call abort
  21       f = 0.0
  22       read (c,'(BZ,E11.0)') f
  23       if (f .ne. 2.002e10) call abort
  24
  25       end
  26 c     end of program
  27