Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/debug_1.f90 @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +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