gcc/testsuite/gfortran.dg/include_12.f

   1 c { dg-do compile }
   2 c { dg-options "-fdec-include" }
   3       subroutine foo
   4       implicit none
   5      0include 'include_10.inc'
   6       i = 1
   7       end subroutine foo
   8       subroutine bar
   9       implicit none
  10       i
  11      ;n
  12      +c
  13
  14 c   some comment
  15
  16      ll
  17 C comment line
  18      uu
  19      DD
  20      ee'include_10.inc'
  21       i = 1
  22       end subroutine bar
  23       subroutine baz
  24       implicit none
  25      0include
  26      + 'include_10.inc'
  27       i = 1
  28       end subroutine baz
  29       subroutine qux
  30       implicit none
  31        i   n   C   lude                                             'inc
  32 * another comment line
  33      &lude_10.inc'
  34       i = 1
  35       end subroutine qux
  36        subroutine quux
  37        implicit none
  38      0inc
  39      1lud
  40      2e                                                                '
  41      3include_10.inc'
  42       i = 1
  43       end subroutine quux
  44       program include_12
  45       implicit none
  46       include
  47 ! comment
  48      +'include_10.inc'
  49       end program
  50       subroutine quuz
  51       implicit none
  52       integer include
  53       include
  54      +"include_10.inc"
  55       i = 1
  56       include
  57      + = 2
  58       write (*,*) include
  59       end subroutine quuz
  60       subroutine corge
  61       implicit none
  62       include
  63      +'include_10.inc'
  64       i = 1
  65       end subroutine corge