Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/debug_1.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
subroutine gfc_debug_bug (n,m,k,ax,bx,c) ! above line must be the first line ! { dg-do compile } ! { dg-options "-g" } ! PR 19195 ! we set line numbers wrongly, which made the compiler choke when emitting ! debug information. implicit none integer :: n, m integer :: k(n+m) real :: ax(:), bx(n), c(n+m) integer :: i real :: f i = k(n) f = c(n) f = bx(n) f = ax(n) end subroutine gfc_debug_bug