gcc/testsuite/gfortran.dg/debug/pr37738.f


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

C PR debug/37738
C { dg-do compile }
C { dg-skip-if "DWARF-2 only" { "*-*-*" } { "*" } { "-gdwarf-2" } }
C { dg-skip-if "DWARF-2 only" { "*-*-*" } { "-g1" } { "" } }
C { dg-options "-dA -gno-strict-dwarf" }

      subroutine a
      integer*4 a_i, c_i
      common /block/a_i, c_i
      a_i = 1
      c_i = 4
      end subroutine a
      subroutine b
      integer*4 b_i
      common /block/b_i, d_i
      b_i = 2
      d_i = 5
      end subroutine b
      subroutine c
      integer*4 a_i, c_i
      common /block/a_i, c_i
      if (a_i .ne. 2) call abort
      if (c_i .ne. 5) call abort
      end subroutine c
      program abc
      call a
      call b
      call c
      end program abc

C { dg-final { scan-assembler-times "DIE\[^\n\]*DW_TAG_common_block" 3 } }