* gfortran.dg/empty_format_1.f90: Remove stray commas.

From-SVN: r88696

* gfortran.dg/empty_format_1.f90: Remove stray commas.
From-SVN: r88696
d0e75c71 · Paul Brook · Paul Brook · 9e941b4a · d0e75c71 · d0e75c71
Commit d0e75c71 authored Oct 07, 2004 by Paul Brook Committed by Paul Brook Oct 07, 2004
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 3 deletions

gcc/testsuite/ChangeLog
+4 -0

gcc/testsuite/gfortran.dg/empty_format_1.f90
+3 -3

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+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, 

--- 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