OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
* gcc.dg/20020919-1.c: Correct target selector to alpha*-*-*.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
include_2.f90
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