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