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