OSDN Git Service

2008-11-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 16 Nov 2008 16:18:36 +0000 (16:18 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 16 Nov 2008 16:18:36 +0000 (16:18 +0000)
PR libfortran/38097
* gfortran.dg/fmt_bz_bn.f: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@141920 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/fmt_bz_bn.f [new file with mode: 0644]

index 2b64140..632216d 100644 (file)
@@ -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
@@ -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
+