New test - apostrophes, Hollerith constants, and cpp

From-SVN: r31318

diff --git a/gcc/testsuite/g77.f-torture/execute/cpp2.F b/gcc/testsuite/g77.f-torture/execute/cpp2.F
new file mode 100644 (file)
index 0000000..88f5644
--- /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