diff options
| author | Jerry DeLisle <jvdelisle@verizon.net> | 2005-07-23 23:54:50 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-07-23 23:54:50 +0000 |
| commit | 049c3b5d06395b9ef8ba52e0ca49a3f013a8780a (patch) | |
| tree | 482a896caa37fd68d2be7b95f642239b18c42b0d | |
| parent | db753fa1cb6104bea2c9a56811abe79aa945ce8f (diff) | |
| download | gcc-049c3b5d06395b9ef8ba52e0ca49a3f013a8780a.zip gcc-049c3b5d06395b9ef8ba52e0ca49a3f013a8780a.tar.gz gcc-049c3b5d06395b9ef8ba52e0ca49a3f013a8780a.tar.bz2 | |
re PR fortran/21875 ([meta-bug] NIST test suite failures)
2005-07-23 Jerry DeLisle <jvdelisle@verizon.net>
PR libgfortran/21875
* gfortran.dg/fmt_read_bz_bn.f90: Revised test to include case
with trailing blanks on normal formatted read.
From-SVN: r102316
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90 | 14 |
2 files changed, 19 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a14dccc..7f855c1 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2005-07-23 Jerry DeLisle <jvdelisle@verizon.net> + + PR libgfortran/21875 + * gfortran.dg/fmt_read_bz_bn.f90: Revised test to include case + with trailing blanks on normal formatted read. + 2005-07-23 Chao-ying Fu <fu@mips.com> * gcc.target/mips/mips32-dsp-type.c: New test. diff --git a/gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90 b/gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90 index 0f2ec64..aea1561 100644 --- a/gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90 +++ b/gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90 @@ -6,12 +6,15 @@ program test_bn integer I1(2,2), I2(2,2,2) real A1(5) +real*8 A2(0:3) character*80 :: IDATA1="111 2 2 3 3. 3E-1 44 5 5 6 . 67 . 78 8. 8E-1" character*80 :: IDATA2="2345 1 34512 45123 51234 2345 1 34512 45123 5" +character*80 :: IDATA3="-8.0D0 1.0D-4 0.50D0 0.250D0" character*80 :: ODATA="" character*80 :: CORRECT1=" 1110 2020 .30303E-07 44 55 6.6 70.07 .888E+01" character*80 :: CORRECT2="23450 10345. 12.45 1235 1234 2345 1345. 12.45 1235" - +character*80 :: CORRECT3=" -0.8000000000D+01 0.1000000000D-03& + 0.5000000000D+00 0.2500000000D+00" READ(IDATA1, 10) I1(1,2), IVI, A1(3), JVI, KVI, A1(2), AVS, A1(1) 10 FORMAT (BZ,(2I4, E10.1, BN, 2I4, F5.2, BZ, F5.2, BN, E10.1)) @@ -28,5 +31,14 @@ WRITE(ODATA, 40) I2(1,2,1), A1(3), AVS, IVI, I1(1,1), JVI, BVS, A1(2), I2(1,1,1) 40 FORMAT (I5, F7.0, BZ, 1X, F5.2, 2(1X,I4),I5, F7.0, BZ, 1X, F5.2, 1X, I4) if (ODATA /= CORRECT2) call abort +ODATA="" + +READ(IDATA3, 50) A2 +50 FORMAT (4D8.0) + +WRITE(ODATA,60) A2 +60 FORMAT (4D20.10) + +if (ODATA /= CORRECT3) call abort end program test_bn |