diff options
| author | Jerry DeLisle <jvdelisle@verizon.net> | 2005-07-09 23:40:31 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-07-09 23:40:31 +0000 |
| commit | 9fa276de85bb001784c07c21ba291d85c2fcd710 (patch) | |
| tree | 503ede726a28e4a251771117cb4154ae761a6fb1 /gcc | |
| parent | f685a2e68d5f87b7eb3b9e7119c7abb9e4304672 (diff) | |
| download | gcc-9fa276de85bb001784c07c21ba291d85c2fcd710.zip gcc-9fa276de85bb001784c07c21ba291d85c2fcd710.tar.gz gcc-9fa276de85bb001784c07c21ba291d85c2fcd710.tar.bz2 | |
PR libfortran/21875 (FM111.f)
2005-07-09 Jerry DeLisle <jvdelisle@verizon.net>
PR libfortran/21875 (FM111.f)
* io/read.c (next_char): Return a ' ' character when BLANK_ZERO or
BLANK_NULL are active.
(read_decimal): Interpret ' ' character correctly for BZ or BN.
(read_radix): Interpret ' ' character correctly for BZ or BN.
(read_f): Interpret ' ' character correctly for BZ or BN.
* gfortran.dg/test (fmt_read_bz_bn.f90): New test case.
From-SVN: r101837
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90 | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90 b/gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90 new file mode 100644 index 0000000..0f2ec64 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/fmt_read_bz_bn.f90 @@ -0,0 +1,32 @@ +! { dg-do run } +! Test various uses of BZ and BN format specifiers. +! Portions inspired by NIST F77 testsuite FM711.f +! Contributed by jvdelisle@verizon.net +program test_bn + +integer I1(2,2), I2(2,2,2) +real A1(5) +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 :: 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" + +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)) + +WRITE(ODATA, 20) I1(1,2), IVI, A1(3), JVI, KVI, A1(2), AVS, A1(1) +20 FORMAT (2I5, 1X, E10.5, BN, 2I5, F6.1, BZ, F6.2, BN, 1X, E8.3, I5) + +if (ODATA /= CORRECT1) call abort +ODATA="" + +READ(IDATA2, 30) I2(1,2,1), A1(3), AVS, IVI, I1(1,1), JVI, BVS, A1(2), I2(1,1,1) +30 FORMAT (BZ, (I5, F5.0, BN, F5.2, 2I5, I5, F5.0, BN, F5.2, I5)) + +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 + +end program test_bn |