2009-08-02 Janus Weil <janus@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / g77 / cpp4.F

diff --git a/gcc/testsuite/gfortran.dg/g77/cpp4.F b/gcc/testsuite/gfortran.dg/g77/cpp4.F
index 0dd5c99..bc14e04 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/cpp4.F
+++ b/gcc/testsuite/gfortran.dg/g77/cpp4.F
@@ -1,8 +1,8 @@
-      ! { dg-do run }
+c { dg-do run }
 C The preprocessor must not mangle Hollerith constants
 C which contain apostrophes.
       integer i
-      character*4 j
+      character(4) j
       data i /4hbla'/
       write (j, '(4a)') i
       if (j .ne. "bla'") call abort