URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [debug/] [pr35154-stabs.f] - Rev 316
Go to most recent revision | Compare with Previous | Blame | View Log
C Test program for common block debugging. G. Helffrich 11 July 2004. C { dg-do compile } C { dg-skip-if "No stabs" { mmix-*-* *-*-netware* alpha*-*-* hppa*64*-*-* ia64-*-* *-*-vxworks* } { "*" } { "" } } C { dg-skip-if "No stabs" {*-*-* } { "*" } { "-gstabs" } } common i,j common /label/l,m i = 1 j = 2 k = 3 l = 4 m = 5 call sub end subroutine sub common /label/l,m logical first save n data first /.true./ if (first) then n = 0 first = .false. endif n = n + 1 l = l + 1 return end C { dg-final { scan-assembler ".stabs.*\"__BLNK__\",226" } } C { dg-final { scan-assembler ".stabs.*\"i:V.*\",.*,0" } } C { dg-final { scan-assembler ".stabs.*\"j:V.*\",.*,4" } } C { dg-final { scan-assembler ".stabs.*\"__BLNK__\",228" } } C { dg-final { scan-assembler ".stabs.*\"label_\",226" } } C { dg-final { scan-assembler ".stabs.*\"l:V.*\",.*,0" } } C { dg-final { scan-assembler ".stabs.*\"m:V.*\",.*,4" } } C { dg-final { scan-assembler ".stabs.*\"label_\",228" } }
Go to most recent revision | Compare with Previous | Blame | View Log