New test - apostrophes, Hollerith constants, and cpp

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@31318 138bc75d-0d04-0410-961f-82ee72b054a4

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