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

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/g77/cpp.F

+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

gcc/testsuite/gfortran.dg/g77/cpp2.F

+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