diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6b873b85830..43b7ea70a19 100644
--- 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
index 00000000000..42c4735c90c
--- /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
index 00000000000..a1ee05afdbd
--- /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