diff options
| author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-09-02 01:33:01 +0000 |
|---|---|---|
| committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-09-02 01:33:01 +0000 |
| commit | 75744229068bfdbe4bb8bc803002bd0e54fc5dde (patch) | |
| tree | f174d83e96b96dfdc5e9932f24caad92c63d9fe1 /gcc | |
| parent | 417eae69747e6171adb932960d3a6c6bd2c3b3df (diff) | |
| download | gcc-75744229068bfdbe4bb8bc803002bd0e54fc5dde.tar.gz | |
* io/format.c (parse_format_list): Set repeat count for P descriptors.
* write.c (output_float): Fix condition. Correctly handle nonzero
scale factor.
testsuite/
* gfortran.dg/edit_real_1.f90: Add new tests.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86952 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/edit_real_1.f90 | 8 |
2 files changed, 12 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index da0463cacf4..d1915c175e7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2004-09-02 Paul Brook <paul@codesourcery.com> + + * gfortran.dg/edit_real_1.f90: Add new tests. + 2004-09-01 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> PR fortran/15327 diff --git a/gcc/testsuite/gfortran.dg/edit_real_1.f90 b/gcc/testsuite/gfortran.dg/edit_real_1.f90 index 3ecd4ff1a3a..dc8eee19d2f 100644 --- a/gcc/testsuite/gfortran.dg/edit_real_1.f90 +++ b/gcc/testsuite/gfortran.dg/edit_real_1.f90 @@ -62,5 +62,13 @@ program edit_real_1 s = x write (s, '(EN15.3,A)') 999.9999, "z" if (s .ne. " 1.000E+03z") call abort + ! E format, positive scale factor + s = x + write (s, '(2PE10.4,A)') 1.2345, "z" + if (s .ne. '12.345E-01z') call abort + ! E format, negative scale factor + s = x + write (s, '(-2PE10.4,A)') 1.25, "z" + if (s .ne. '0.0013E+03z') call abort end |