From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sat, 19 Apr 2008 06:42:42 +0000 (+0000)
Subject: re PR fortran/35892 (gfortran lost memory blocks)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=280169458a5bca5e3cf679c35fccb00e2ab22444;p=gcc.git

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
---

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  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/35892
+	* gfortran.dg/pr35154-dwarf2.f: Remove.
+	* gfortran.dg/pr35154-stabs.f: Remove.
+	
 2008-04-18  Ian Lance Taylor  <iant@google.com>
 
 	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" } }