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
10subroutine one()
11  include "include_4.inc"
12  integer(i4) :: i
13end subroutine one
14
15subroutine two()
16# include "include_4.inc"
17  integer(i4) :: i
18end subroutine two
19