cpp3.F\g77\gfortran.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/g77/cpp3.F

blob: b7fe29cbf8b270a0f0538a56eacf63be3fd6ac36 (plain)

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') STOP 1
      end