blob: 9c4ff15afb87033ba4b8ca79bcc08750d6a16029 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
! { dg-do compile }
! { dg-options "-fopenmp -fdec-include" }
subroutine foo
implicit none
!$ incl& ! comment1
!$ &u&
!$ &de & ! comment2
!$ 'include&
&_1.inc'
i = 1
end subroutine foo
subroutine bar
implicit none
!$ include &
! comment3
!$ "include_1.inc"
i = 1
end subroutine bar
subroutine baz
implicit none
!$ include&
!$ &'include_1.&
!$ &inc'
i = 1
end subroutine baz
subroutine qux
implicit none
!$ include '&
include_1.inc'
end subroutine qux
|
