OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [debug/] [pr37738.f] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
C PR debug/37738
2
C { dg-do compile }
3
C { dg-skip-if "DWARF-2 only" { "*-*-*" } { "*" } { "-gdwarf-2" } }
4
C { dg-skip-if "DWARF-2 only" { "*-*-*" } { "-g1" } { "" } }
5
C { 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) call abort
23
      if (c_i .ne. 5) call abort
24
      end subroutine c
25
      program abc
26
      call a
27
      call b
28
      call c
29
      end program abc
30
 
31
C { dg-final { scan-assembler-times "DIE\[^\n\]*DW_TAG_common_block" 3 } }

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.