gcc/testsuite/gfortran.dg/g77/cpp4.F

   1 c { dg-do run }
   2 C The preprocessor must not mangle Hollerith constants
   3 C which contain apostrophes.
   4       integer i
   5       character(4) j
   6       data i /4hbla'/
   7       write (j, '(4a)') i
   8       if (j .ne. "bla'") call abort
   9       end
  10
  11       ! { dg-warning "Hollerith constant" "const" { target *-*-* } 6 }
  12       ! { dg-warning "Conversion" "conversion" { target *-*-* } 6 }