1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/cpp4.F b/gcc/testsuite/gfortran.dg/g77/cpp4.F
new file mode 100644
index 000000000..bc14e0469
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/cpp4.F
@@ -0,0 +1,12 @@
+c { dg-do run }
+C The preprocessor must not mangle Hollerith constants
+C which contain apostrophes.
+      integer i
+      character(4) j
+      data i /4hbla'/
+      write (j, '(4a)') i
+      if (j .ne. "bla'") call abort
+      end
+
+      ! { dg-warning "Hollerith constant" "const" { target *-*-* } 6 }
+      ! { dg-warning "Conversion" "conversion" { target *-*-* } 6 }