1C PR debug/37738
2C { dg-do compile }
3C { dg-skip-if "DWARF-2 only" { "*-*-*" } { "*" } { "-gdwarf-2" } }
4C { dg-skip-if "DWARF-2 only" { "*-*-*" } { "-g1" } { "" } }
5C { dg-options "-dA -gno-strict-dwarf" }
6
7      subroutine a
8      integer*4 a_i, c_i
9      common /block/a_i, c_i
10      a_i = 1
11      c_i = 4
12      end subroutine a
13      subroutine b
14      integer*4 b_i
15      common /block/b_i, d_i
16      b_i = 2
17      d_i = 5
18      end subroutine b
19      subroutine c
20      integer*4 a_i, c_i
21      common /block/a_i, c_i
22      if (a_i .ne. 2) STOP 1
23      if (c_i .ne. 5) STOP 2
24      end subroutine c
25      program abc
26      call a
27      call b
28      call c
29      end program abc
30
31C { dg-final { scan-assembler-times "DIE\[^\n\]*DW_TAG_common_block" 3 } }
32