From: Jerry DeLisle Date: Sun, 16 Nov 2008 16:18:36 +0000 (+0000) Subject: re PR libfortran/38097 (I/O with blanks in exponent fails; blank="NULL", BN edit... X-Git-Tag: releases/gcc-4.4.0~1635 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=dfc1a404f251f8f08d117f4af416d84ff1af59cb;p=thirdparty%2Fgcc.git 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 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2b64140cee65..632216dac0b4 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 000000000000..b4a1ac349c8a --- /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 +