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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
C     Test program for common block debugging.  G. Helffrich 11 July 2004.
2
C { dg-do compile }
3
C { dg-skip-if "No stabs" { mmix-*-* alpha*-*-* hppa*64*-*-* ia64-*-* *-*-vxworks* } { "*" } { "" } }
4
C { dg-skip-if "No stabs" {*-*-* } { "*" } { "-gstabs" } }
5
      common i,j
6
      common /label/l,m
7
      i = 1
8
      j = 2
9
      k = 3
10
      l = 4
11
      m = 5
12
      call sub
13
      end
14
      subroutine sub
15
      common /label/l,m
16
      logical first
17
      save n
18
      data first /.true./
19
      if (first) then
20
         n = 0
21
         first = .false.
22
      endif
23
      n = n + 1
24
      l = l + 1
25
      return
26
      end
27
 
28
C { dg-final { scan-assembler ".stabs.*\"__BLNK__\",226" } }
29
C { dg-final { scan-assembler ".stabs.*\"i:V.*\",.*,0" } }
30
C { dg-final { scan-assembler ".stabs.*\"j:V.*\",.*,4" } }
31
C { dg-final { scan-assembler ".stabs.*\"__BLNK__\",228" } }
32
C { dg-final { scan-assembler ".stabs.*\"label_\",226" } }
33
C { dg-final { scan-assembler ".stabs.*\"l:V.*\",.*,0" } }
34
C { dg-final { scan-assembler ".stabs.*\"m:V.*\",.*,4" } }
35
C { dg-final { scan-assembler ".stabs.*\"label_\",228" } }

powered by: WebSVN 2.1.0

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