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
9subroutine one()
10 include "include_4.inc"
11 integer(i4) :: i
12end subroutine one
13