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