URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [include_2.f90] - Blame information for rev 749

Go to most recent revision | Details | Compare with Previous | View Log


# 1 "include_2.F90"
# 1 "/tmp/"
# 1 ""
# 1 ""
# 1 "include_2.F90"
#define S1 1
#define B a
# 1 "include_2.inc" 1
subroutine a
#undef S2
#define S2 1
integer :: i
end subroutine a
# 4 "include_2.F90" 2
#undef B
#define B b
# 1 "include_2.inc" 1
subroutine b
#undef S2
#define S2 1
integer :: i
end subroutine b
# 6 "include_2.F90" 2
! PR debug/33739
! { dg-do link }
! { dg-options "-fpreprocessed -g3" }
    call a
    call b
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`# 1 "include_2.F90"`
2			`# 1 "/tmp/"`
3			`# 1 ""`
4			`# 1 ""`
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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [include_2.f90] - Blame information for rev 749