gcc/testsuite/gfortran.dg/include_4.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/37821
   4 !
   5 ! Ensure that for #include "..." and for include the
   6 ! current directory/directory of the source file is
   7 ! included. See also include_5.f90
   8
   9 subroutine one()
  10   include "include_4.inc"
  11   integer(i4) :: i
  12 end subroutine one