diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-06-12 21:59:17 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-06-12 19:59:17 +0000 |
| commit | 57504df9ee4a500f71fd9f656b4ad278b3dbbb97 (patch) | |
| tree | cc455889003257c5b45220b191017d12068eceb5 /gcc | |
| parent | d35310e309872f99917cb3d7dc67abd63023d33c (diff) | |
| download | gcc-57504df9ee4a500f71fd9f656b4ad278b3dbbb97.zip gcc-57504df9ee4a500f71fd9f656b4ad278b3dbbb97.tar.gz gcc-57504df9ee4a500f71fd9f656b4ad278b3dbbb97.tar.bz2 | |
re PR libfortran/19155 ([4.0 only] blanks not treated as zeros in 'E' format read (NIST FM110.FOR))
PR libfortran/19155
* io/read.c (read_f): Take care of spaces after initial sign.
* gfortran.dg/pr19155.f: Add test.
From-SVN: r100861
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr19155.f | 5 |
2 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 72c1e88..7278d61 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-06-12 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + PR libfortran/19155 + * gfortran.dg/pr19155.f: Add test. + 2005-06-12 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> * gfortran.dg/f2c_7.f90: New test. diff --git a/gcc/testsuite/gfortran.dg/pr19155.f b/gcc/testsuite/gfortran.dg/pr19155.f index ccd3915..6387c3f 100644 --- a/gcc/testsuite/gfortran.dg/pr19155.f +++ b/gcc/testsuite/gfortran.dg/pr19155.f @@ -5,6 +5,7 @@ ! but doesn't require us to issue an error. Since g77 accepts this as zero, ! we do the same. real a + character*10 c a = 42 open (19,status='scratch') write (19,'(A15)') 'E+00' @@ -12,4 +13,8 @@ read (19,'(E15.8)') a if (a .ne. 0) call abort close (19) + + c = "+ " + read (c,"(F10.4)") a + if (a /= 0) call abort end |