gcc/testsuite/gfortran.dg/include_5.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-cpp" }
   3 !
   4 ! PR fortran/37821
   5 !
   6 ! Ensure that for #include "..." and for include the
   7 ! current directory/directory of the source file is
   8 ! included.
   9
  10 subroutine one()
  11   include "include_4.inc"
  12   integer(i4) :: i
  13 end subroutine one
  14
  15 subroutine two()
  16 # include "include_4.inc"
  17   integer(i4) :: i
  18 end subroutine two