From 280169458a5bca5e3cf679c35fccb00e2ab22444 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 19 Apr 2008 06:42:42 +0000 Subject: [PATCH] re PR fortran/35892 (gfortran lost memory blocks) 2008-04-18 Jerry DeLisle PR fortran/35892 * gfortran.dg/pr35154-dwarf2.f: Remove. * gfortran.dg/pr35154-stabs.f: Remove. From-SVN: r134465 --- gcc/testsuite/ChangeLog | 6 +++ .../gfortran.dg/debug/pr35154-dwarf2.f | 37 ------------------- .../gfortran.dg/debug/pr35154-stabs.f | 35 ------------------ 3 files changed, 6 insertions(+), 72 deletions(-) delete mode 100644 gcc/testsuite/gfortran.dg/debug/pr35154-dwarf2.f delete mode 100644 gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b5f2fa666b3..22da23b4b4c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2008-04-18 Jerry DeLisle + + PR fortran/35892 + * gfortran.dg/pr35154-dwarf2.f: Remove. + * gfortran.dg/pr35154-stabs.f: Remove. + 2008-04-18 Ian Lance Taylor PR tree-optimization/35977 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 0203d134a62..00000000000 --- 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 7294771bd3e..00000000000 --- 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" } } -- 2.30.2