19 lines
348 B
Fortran
19 lines
348 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-cpp" }
|
|
!
|
|
! PR fortran/37821
|
|
!
|
|
! Ensure that for #include "..." and for include the
|
|
! current directory/directory of the source file is
|
|
! included.
|
|
|
|
subroutine one()
|
|
include "include_4.inc"
|
|
integer(i4) :: i
|
|
end subroutine one
|
|
|
|
subroutine two()
|
|
# include "include_4.inc"
|
|
integer(i4) :: i
|
|
end subroutine two
|