gcc/testsuite/gfortran.dg/include_10.f


1
2
3
4
5
6
7
8
9
10
11

c { dg-do compile }
      subroutine foo
      implicit none
      include 'include_10.inc'
      i = 1
      end subroutine foo
      subroutine bar
      implicit none
      i n cl UD e'include_10.inc'
      i = 1
      end subroutine bar