gcc/testsuite/g77.f-torture/execute/cpp2.F

   1 C The preprocessor must not mangle Hollerith constants
   2 C which contain apostrophes.
   3       integer i, j
   4       data i /4hbla'/
   5       data j /"bla'"/
   6       if (i .ne. j) call abort
   7       end