diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-04-19 06:42:42 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-04-19 06:42:42 +0000 |
| commit | 280169458a5bca5e3cf679c35fccb00e2ab22444 (patch) | |
| tree | 09c163b56c7c69944a71475161c718202b19f34c /gcc/testsuite/gfortran.dg | |
| parent | 6c0c6ecc6fef374ff4dea99f42bc2e35d1ba03c6 (diff) | |
| download | gcc-280169458a5bca5e3cf679c35fccb00e2ab22444.zip gcc-280169458a5bca5e3cf679c35fccb00e2ab22444.tar.gz gcc-280169458a5bca5e3cf679c35fccb00e2ab22444.tar.bz2 | |
re PR fortran/35892 (gfortran lost memory blocks)
2008-04-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/35892
* gfortran.dg/pr35154-dwarf2.f: Remove.
* gfortran.dg/pr35154-stabs.f: Remove.
From-SVN: r134465
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/debug/pr35154-dwarf2.f | 37 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f | 35 |
2 files changed, 0 insertions, 72 deletions
diff --git a/gcc/testsuite/gfortran.dg/debug/pr35154-dwarf2.f b/gcc/testsuite/gfortran.dg/debug/pr35154-dwarf2.f deleted file mode 100644 index 0203d13..0000000 --- a/gcc/testsuite/gfortran.dg/debug/pr35154-dwarf2.f +++ /dev/null @@ -1,37 +0,0 @@ -C Test program for common block debugging. G. Helffrich 11 July 2004. -C { dg-do compile } -C { dg-skip-if "DWARF-2 only" { "*-*-*" } { "*" } { "-gdwarf-2" } } -C { dg-options "-dA" } - 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 "(DIE.*DW_TAG_common_block)" } } -C { dg-final { scan-assembler "DW_AT_name: \"__BLNK__\"" } } -C { dg-final { scan-assembler "(DIE.*DW_TAG_member)" } } -C { dg-final { scan-assembler "\"i.*\".*DW_AT_name" } } -C { dg-final { scan-assembler "\"j.*\".*DW_AT_name" } } -C { dg-final { scan-assembler "(DIE.*DW_TAG_common_block)" } } -C { dg-final { scan-assembler "DW_AT_name: \"label\"" } } -C { dg-final { scan-assembler "(DIE.*DW_TAG_member)" } } -C { dg-final { scan-assembler "\"l.*\".*DW_AT_name" } } -C { dg-final { scan-assembler "\"m.*\".*DW_AT_name" } } diff --git a/gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f b/gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f deleted file mode 100644 index 7294771..0000000 --- a/gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f +++ /dev/null @@ -1,35 +0,0 @@ -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-*-* *-*-sysv5* *-*-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" } } |