From: Paul Brook <paul@codesourcery.com>
Date: Thu, 7 Oct 2004 17:45:40 +0000 (+0000)
Subject: * gfortran.dg/empty_format_1.f90: Remove stray commas.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d0e75c71c9a2586b0de06873febcdddd0eb7f01b;p=gcc.git

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

From-SVN: r88696
---

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