1subroutine 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)
20end subroutine gfc_debug_bug
21