* gfortran.dg/der_io_1.f90: Remove stray comma.

From-SVN: r85951

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d3100503ed47523ce66c278d99de2ef9611976bb..d7e85b65fee3a07e8fac5fcac80445bda1aad92c 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2004-08-13  Paul Brook  <paul@codesourcery.com>
+
+       * gfortran.dg/der_io_1.f90: Remove stray comma.
+
 2004-08-12  Janis Johnson  <janis187@us.ibm.com>
 
        * gcc.dg/vmx/cw-bug-2.c: Remove.

diff --git a/gcc/testsuite/gfortran.dg/der_io_1.f90 b/gcc/testsuite/gfortran.dg/der_io_1.f90
index 32155aa6918b315f7f35aaf3180a1dda66284b6a..8710bf81a73788d98d47a675bb7b83d1d3f163e5 100644 (file)
--- a/gcc/testsuite/gfortran.dg/der_io_1.f90
+++ b/gcc/testsuite/gfortran.dg/der_io_1.f90
@@ -10,7 +10,7 @@ program der_io_1
 
   v%p => i
   i = 42
-  write (unit=s, fmt='(I2)'), v
+  write (unit=s, fmt='(I2)') v
   if (s .ne. '42') call abort ()
 end program