cpp.F « execute « g77.f-torture « testsuite « gcc - gcc.git - Linaro gcc mirror (git://gcc.gnu.org/git/gcc.git) + linaro-local branches

index : gcc.git

Linaro gcc mirror (git://gcc.gnu.org/git/gcc.git) + linaro-local branches

about summary refs log tree commit diff

path: root/gcc/testsuite/g77.f-torture/execute/cpp.F

blob: fc9386b5c921da5d9c4c035ccdc0bb89e9ea5c47 (plain)

!  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