diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-11-16 16:18:36 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-11-16 16:18:36 +0000 |
| commit | dfc1a404f251f8f08d117f4af416d84ff1af59cb (patch) | |
| tree | 5ff5712ab200a46ae117df9f0fb2d5cb03911ad6 /gcc | |
| parent | 264a5255d84d3f3a9b1f18946ab3c37e59e8d32f (diff) | |
| download | gcc-dfc1a404f251f8f08d117f4af416d84ff1af59cb.zip gcc-dfc1a404f251f8f08d117f4af416d84ff1af59cb.tar.gz gcc-dfc1a404f251f8f08d117f4af416d84ff1af59cb.tar.bz2 | |
re PR libfortran/38097 (I/O with blanks in exponent fails; blank="NULL", BN edit descriptor)
2008-11-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/38097
* gfortran.dg/fmt_bz_bn.f: New test.
From-SVN: r141920
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_bz_bn.f | 27 |
2 files changed, 32 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2b64140..632216d 100644 --- 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 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 + |