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