gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f

   1 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-*-* *-*-netware* alpha*-*-* hppa*64*-*-* ia64-*-* *-*-sysv5* *-*-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" } }