diff options
| author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-07 17:45:40 +0000 |
|---|---|---|
| committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-10-07 17:45:40 +0000 |
| commit | 5a0660bee7b0f9887b241e2aae070534e7b0db4c (patch) | |
| tree | df89fa149a05772da4618f2cbef7909c1fb7f98e | |
| parent | 6791d0462ec373d7b82f37e8f4b62bed0af6f67d (diff) | |
| download | ppe42-gcc-5a0660bee7b0f9887b241e2aae070534e7b0db4c.tar.gz ppe42-gcc-5a0660bee7b0f9887b241e2aae070534e7b0db4c.zip | |
* gfortran.dg/empty_format_1.f90: Remove stray commas.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88696 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/empty_format_1.f90 | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c3827ea417a..b4cd8d83274 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2004-10-07 Paul Brook <paul@codesourcery.com> + + * gfortran.dg/empty_format_1.f90: Remove stray commas. + 2004-10-07 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> * gfortran.fortran-torture/execute/intrinsic_mvbits.f90, diff --git a/gcc/testsuite/gfortran.dg/empty_format_1.f90 b/gcc/testsuite/gfortran.dg/empty_format_1.f90 index 450df6d171c..79a2d0c17d7 100644 --- a/gcc/testsuite/gfortran.dg/empty_format_1.f90 +++ b/gcc/testsuite/gfortran.dg/empty_format_1.f90 @@ -7,9 +7,9 @@ program main character*20 str io_unit = 10 open (unit=io_unit,status='scratch',form='formatted') - write (io_unit, '(A)'), "Line1" - write (io_unit, '(A)'), "Line2" - write (io_unit, '(A)'), "Line3" + write (io_unit, '(A)') "Line1" + write (io_unit, '(A)') "Line2" + write (io_unit, '(A)') "Line3" rewind (io_unit) read (io_unit,'(A)') str if (str .ne. "Line1") call abort |
