gcc/testsuite/gfortran.dg/g77/cpp3.F - gcc - Git at Google

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