From dfc1a404f251f8f08d117f4af416d84ff1af59cb Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 16 Nov 2008 16:18:36 +0000 Subject: [PATCH] re PR libfortran/38097 (I/O with blanks in exponent fails; blank="NULL", BN edit descriptor) 2008-11-16 Jerry DeLisle PR libfortran/38097 * gfortran.dg/fmt_bz_bn.f: New test. From-SVN: r141920 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/fmt_bz_bn.f | 27 +++++++++++++++++++++++++++ 2 files changed, 32 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/fmt_bz_bn.f 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 + + PR libfortran/38097 + * gfortran.dg/fmt_bz_bn.f: New test. + 2008-11-16 Eric Botcazou * 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 + -- 2.7.4