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
Update concepts branch to revision 131834
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
include_2.f90
blob
e4f553efa3e4b3ecf70c72e7375105d661febd67
1
#
1
"include_2.F90"
2
#
1
"/tmp/"
3
#
1
"<built-in>"
4
#
1
"<command line>"
5
#
1
"include_2.F90"
6
#define S1
1
7
#define B a
8
#
1
"include_2.inc"
1
9
subroutine
a
10
#undef S2
11
#define S2
1
12
integer
::
i
13
end subroutine
a
14
#
4
"include_2.F90"
2
15
#undef B
16
#define B b
17
#
1
"include_2.inc"
1
18
subroutine
b
19
#undef S2
20
#define S2
1
21
integer
::
i
22
end subroutine
b
23
#
6
"include_2.F90"
2
24
! PR debug/33739
25
! { dg-do link }
26
! { dg-options "-fpreprocessed -g3" }
27
call
a
28
call
b
29
end