C Test program for common block debugging. G. Helffrich 11 July 2004.
|
C Test program for common block debugging. G. Helffrich 11 July 2004.
|
C { dg-do compile }
|
C { dg-do compile }
|
C { dg-skip-if "No stabs" { mmix-*-* *-*-netware* alpha*-*-* hppa*64*-*-* ia64-*-* *-*-vxworks* } { "*" } { "" } }
|
C { dg-skip-if "No stabs" { mmix-*-* *-*-netware* alpha*-*-* hppa*64*-*-* ia64-*-* *-*-vxworks* } { "*" } { "" } }
|
C { dg-skip-if "No stabs" {*-*-* } { "*" } { "-gstabs" } }
|
C { dg-skip-if "No stabs" {*-*-* } { "*" } { "-gstabs" } }
|
common i,j
|
common i,j
|
common /label/l,m
|
common /label/l,m
|
i = 1
|
i = 1
|
j = 2
|
j = 2
|
k = 3
|
k = 3
|
l = 4
|
l = 4
|
m = 5
|
m = 5
|
call sub
|
call sub
|
end
|
end
|
subroutine sub
|
subroutine sub
|
common /label/l,m
|
common /label/l,m
|
logical first
|
logical first
|
save n
|
save n
|
data first /.true./
|
data first /.true./
|
if (first) then
|
if (first) then
|
n = 0
|
n = 0
|
first = .false.
|
first = .false.
|
endif
|
endif
|
n = n + 1
|
n = n + 1
|
l = l + 1
|
l = l + 1
|
return
|
return
|
end
|
end
|
|
|
C { dg-final { scan-assembler ".stabs.*\"__BLNK__\",226" } }
|
C { dg-final { scan-assembler ".stabs.*\"__BLNK__\",226" } }
|
C { dg-final { scan-assembler ".stabs.*\"i:V.*\",.*,0" } }
|
C { dg-final { scan-assembler ".stabs.*\"i:V.*\",.*,0" } }
|
C { dg-final { scan-assembler ".stabs.*\"j:V.*\",.*,4" } }
|
C { dg-final { scan-assembler ".stabs.*\"j:V.*\",.*,4" } }
|
C { dg-final { scan-assembler ".stabs.*\"__BLNK__\",228" } }
|
C { dg-final { scan-assembler ".stabs.*\"__BLNK__\",228" } }
|
C { dg-final { scan-assembler ".stabs.*\"label_\",226" } }
|
C { dg-final { scan-assembler ".stabs.*\"label_\",226" } }
|
C { dg-final { scan-assembler ".stabs.*\"l:V.*\",.*,0" } }
|
C { dg-final { scan-assembler ".stabs.*\"l:V.*\",.*,0" } }
|
C { dg-final { scan-assembler ".stabs.*\"m:V.*\",.*,4" } }
|
C { dg-final { scan-assembler ".stabs.*\"m:V.*\",.*,4" } }
|
C { dg-final { scan-assembler ".stabs.*\"label_\",228" } }
|
C { dg-final { scan-assembler ".stabs.*\"label_\",228" } }
|
|
|