New test - apostrophes, Hollerith constants, and cpp

From-SVN: r31318

New test - apostrophes, Hollerith constants, and cpp
From-SVN: r31318
1e57ec75 · Zack Weinberg · 2db7017d · 1e57ec75
Commit 1e57ec75 authored Jan 11, 2000 by Zack Weinberg
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

gcc/testsuite/g77.f-torture/execute/cpp2.F
+7 -0

No files found.
--- a/gcc/testsuite/g77.f-torture/execute/cpp2.F
+++ b/gcc/testsuite/g77.f-torture/execute/cpp2.F
+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