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
PR testsuite/35406
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
debug_1.f90
1
subroutine gfc_debug_bug (n,m,k,ax,bx,c)
2
! above line must be the first line
3
! { dg-do compile }
4
! { dg-options "-g" }
5
! PR 19195
6
! we set line numbers wrongly, which made the compiler choke when emitting
7
! debug information.
8
implicit none
9
integer :: n, m
10
integer :: k(n+m)
11
real :: ax(:), bx(n), c(n+m)
12
13
integer :: i
14
real :: f
15
16
i = k(n)
17
f = c(n)
18
f = bx(n)
19
f = ax(n)
20
end subroutine gfc_debug_bug