repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
include_13.f90
blob
418ee5585e259ef4b65c46e53d64ed4f85f42311
1
! { dg-do compile }
2
! { dg-options "-fdec" }
3
subroutine
foo
4
implicit none
5
incl
&
! comment1
6
&
u
&
7
&
de
&
! comment2
8
'include&
9
&_10.inc'
10
i
=
1
11
end subroutine
foo
12
subroutine
bar
13
implicit none
14
include
&
15
16
! comment3
17
18
"include_10.inc"
19
i
=
1
20
end subroutine
bar
21
subroutine
baz
22
implicit none
23
include
&
24
&
'include_10.&
25
&inc'
26
i
=
1
27
end subroutine
baz
28
subroutine
qux
29
implicit none
30
include
'&
31
include_10.inc'
32
end subroutine
qux
33
subroutine
quux
34
implicit none
35
include
&
36
&
'include_10.inc'
37
i
=
1
38
end subroutine
quux
39
subroutine
quuz
40
implicit none
41
include
&
42
&
"include_10.inc"
43
i
=
1
44
end subroutine
quuz