2010-04-24 Kai Tietz <kai.tietz@onevision.com>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / g77 / 1832.f

diff --git a/gcc/testsuite/gfortran.dg/g77/1832.f b/gcc/testsuite/gfortran.dg/g77/1832.f
index 9f611b5..6b7617d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/1832.f
+++ b/gcc/testsuite/gfortran.dg/g77/1832.f
@@ -1,9 +1,9 @@
 c { dg-do run }
-      character*120 file
+! { dg-options "-std=legacy" }
+!
       character*5   string
-      file = "c:/dos/adir/bdir/cdir/text.doc"
-      write(string, *) "a ", file
+      write(string, *) "a "
       if (string .ne. ' a') call abort
 C-- The leading space is normal for list-directed output
-C-- "file" is not printed because it would overflow "string".
+
       end