From 1e57ec753335e0787315fe296f3a4e9d0ab95ef1 Mon Sep 17 00:00:00 2001
From: Zack Weinberg <zack@gcc.gnu.org>
Date: Tue, 11 Jan 2000 06:06:11 +0000
Subject: [PATCH] New test - apostrophes, Hollerith constants, and cpp

From-SVN: r31318
---
 gcc/testsuite/g77.f-torture/execute/cpp2.F | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 gcc/testsuite/g77.f-torture/execute/cpp2.F

diff --git a/gcc/testsuite/g77.f-torture/execute/cpp2.F b/gcc/testsuite/g77.f-torture/execute/cpp2.F
new file mode 100644
index 00000000000..88f5644d8b5
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/cpp2.F
@@ -0,0 +1,7 @@
+C The preprocessor must not mangle Hollerith constants
+C which contain apostrophes.
+      integer i, j
+      data i /4hbla'/
+      data j /"bla'"/
+      if (i .ne. j) call abort
+      end
-- 
2.30.2