1C Test program for common block debugging. G. Helffrich 11 July 2004. 2C { dg-do compile } 3C { dg-skip-if "No stabs" { aarch64*-*-* mmix-*-* alpha*-*-* hppa*64*-*-* ia64-*-* *-*-vxworks* } { "*" } { "" } } 4C { dg-skip-if "No stabs" {*-*-* } { "*" } { "-gstabs" } } 5 common i,j 6 common /label/l,m 7 i = 1 8 j = 2 9 k = 3 10 l = 4 11 m = 5 12 call sub 13 end 14 subroutine sub 15 common /label/l,m 16 logical first 17 save n 18 data first /.true./ 19 if (first) then 20 n = 0 21 first = .false. 22 endif 23 n = n + 1 24 l = l + 1 25 return 26 end 27 28C { dg-final { scan-assembler ".stabs.*\"__BLNK__\",226" } } 29C { dg-final { scan-assembler ".stabs.*\"i:V.*\",.*,0" } } 30C { dg-final { scan-assembler ".stabs.*\"j:V.*\",.*,4" } } 31C { dg-final { scan-assembler ".stabs.*\"__BLNK__\",228" } } 32C { dg-final { scan-assembler ".stabs.*\"label_\",226" } } 33C { dg-final { scan-assembler ".stabs.*\"l:V.*\",.*,0" } } 34C { dg-final { scan-assembler ".stabs.*\"m:V.*\",.*,4" } } 35C { dg-final { scan-assembler ".stabs.*\"label_\",228" } } 36