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