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

   1 c { dg-do run }
   2 c { dg-options "-std=legacy" }
   3 c
   4 !  Some versions of cpp will delete "//'World' as a C++ comment.
   5       character*40    title
   6       title = 'Hello '//'World'
   7       if (title .ne. 'Hello World') call abort
   8       end