1139825SimpC PR debug/37738
290643SbennoC { dg-do compile }
390643SbennoC { dg-skip-if "DWARF-2 only" { "*-*-*" } { "*" } { "-gdwarf-2" } }
490643SbennoC { dg-skip-if "DWARF-2 only" { "*-*-*" } { "-g1" } { "" } }
590643SbennoC { dg-options "-dA -gno-strict-dwarf" }
690643Sbenno
790643Sbenno      subroutine a
890643Sbenno      integer*4 a_i, c_i
990643Sbenno      common /block/a_i, c_i
1090643Sbenno      a_i = 1
1190643Sbenno      c_i = 4
1290643Sbenno      end subroutine a
1390643Sbenno      subroutine b
1490643Sbenno      integer*4 b_i
1590643Sbenno      common /block/b_i, d_i
1690643Sbenno      b_i = 2
1790643Sbenno      d_i = 5
1890643Sbenno      end subroutine b
1990643Sbenno      subroutine c
2090643Sbenno      integer*4 a_i, c_i
2190643Sbenno      common /block/a_i, c_i
2290643Sbenno      if (a_i .ne. 2) call abort
2390643Sbenno      if (c_i .ne. 5) call abort
2490643Sbenno      end subroutine c
2590643Sbenno      program abc
2690643Sbenno      call a
2790643Sbenno      call b
2890643Sbenno      call c
2990643Sbenno      end program abc
3090643Sbenno
3190643SbennoC { dg-final { scan-assembler-times "DIE\[^\n\]*DW_TAG_common_block" 3 } }
3290643Sbenno