re PR libfortran/38097 (I/O with blanks in exponent fails; blank="NULL", BN edit...

2008-11-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/38097
	* gfortran.dg/fmt_bz_bn.f: New test.

From-SVN: r141920

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2b64140..632216d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libfortran/38097
+       * gfortran.dg/fmt_bz_bn.f: New test.
+
 2008-11-16  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gnat.dg/boolean_bitfield.adb: New test.

diff --git a/gcc/testsuite/gfortran.dg/fmt_bz_bn.f b/gcc/testsuite/gfortran.dg/fmt_bz_bn.f
new file mode 100644 (file)
index 0000000..b4a1ac3
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_bz_bn.f
@@ -0,0 +1,27 @@
+c     { dg-do run }
+c     PR38097 I/O with blanks in exponent fails; BN edit descriptor
+c     Test case derived from reporter.
+      character(11)  :: a = ' 2.  3 e+ 3'
+      character(11)  :: b = ' 2.003 e+ 3'
+      character(11)  :: c = ' 2.002 e+1 '
+      real :: f
+
+      f = 0.0
+      read (a,'(BZ,E11.0)') f
+      if (f .ne. 2003.0) call abort
+      f = 0.0
+      read (a,'(BN,E11.0)') f
+      if (f .ne. 2300.0) call abort
+      f = 0.0
+      read (b,'(BN,E11.0)') f
+      if (f .ne. 2003.0) call abort
+      f = 0.0
+      read (c,'(E11.0)') f
+      if (f .ne. 2.0020) call abort
+      f = 0.0
+      read (c,'(BZ,E11.0)') f
+      if (f .ne. 2.002e10) call abort
+
+      end
+c     end of program
+