diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 54e1a3698d0..6d7712183af 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-21  Zack Weinberg  <zack@codesourcery.com>
+
+	* g77.f-torture/compile/cpp2.F: New test.
+
 2002-01-19  Nathan Sidwell  <nathan@codesourcery.com>
 
 	* g++.dg/template/access1.C: New test.
diff --git a/gcc/testsuite/g77.f-torture/compile/cpp2.F b/gcc/testsuite/g77.f-torture/compile/cpp2.F
new file mode 100644
index 00000000000..968d9f666ef
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/cpp2.F
@@ -0,0 +1,7 @@
+C The preprocessor must not introduce a newline after
+C the "a" when ARGUMENTS is expanded.
+
+#define ARGUMENTS a\
+
+      subroutine yada (ARGUMENTS)
+      end