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