8sa1-gcc/gcc/testsuite/g77.f-torture/execute/cpp.F
Dave Love b38b42d205 Call abort where appropriate.
From-SVN: r19742
1998-05-14 09:00:31 +00:00

6 lines
182 B
Fortran

! 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