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
|