cpp.F: Copy from g77.f-torture/compile.

2004-07-13  David Billinghurst (David.Billinghurst@riotinto.com)

	* gfortran.dg/g77/cpp.F: Copy from g77.f-torture/compile.
	Add {dg-do compile} directive.
	* gfortran.dg/g77/cpp2.F: Likewise

From-SVN: r84589

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6b873b8583063a459e57a2129bcc303a3e613527..43b7ea70a19ba05563dc910d166c07c7c03fed79 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2004-07-13  David Billinghurst (David.Billinghurst@riotinto.com)
+ 
+       * gfortran.dg/g77/cpp.F: Copy from g77.f-torture/compile.
+       Add {dg-do compile} directive.
+       * gfortran.dg/g77/cpp2.F: Likewise
+
 2004-07-12  Volker Reichelt  <reichelt@igpm.rwth-aachen.de>
 
        PR c++/5402
@@ -16,7 +22,7 @@
 
 2004-07-12  David Billinghurst (David.Billinghurst@riotinto.com)
  
-       * gfortran.dg/g77/12002.f: Copy from g77.f-torture/compile .
+       * gfortran.dg/g77/12002.f: Copy from g77.f-torture/compile.
        Add {dg-do compile} directive.
        * gfortran.dg/g77/13060.f: Likewise
        * gfortran.dg/g77/19990218-0.f: Likewise

diff --git a/gcc/testsuite/gfortran.dg/g77/cpp.F b/gcc/testsuite/gfortran.dg/g77/cpp.F
new file mode 100755 (executable)
index 0000000..42c4735
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/cpp.F
@@ -0,0 +1,10 @@
+c { dg-do compile }
+C When run through the C preprocessor, the indentation of the
+C CONTINUE line must not be mangled.
+      subroutine aap(a, n)
+      dimension a(n)
+      do 10 i = 1, n
+         a(i) = i
+ 10   continue
+      print *, a(1)
+      end

diff --git a/gcc/testsuite/gfortran.dg/g77/cpp2.F b/gcc/testsuite/gfortran.dg/g77/cpp2.F
new file mode 100755 (executable)
index 0000000..a1ee05a
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/cpp2.F
@@ -0,0 +1,8 @@
+c { dg-do compile }
+C The preprocessor must not introduce a newline after
+C the "a" when ARGUMENTS is expanded.
+
+#define ARGUMENTS a\
+
+      subroutine yada (ARGUMENTS)
+      end