diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-19 06:42:42 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-19 06:42:42 +0000 |
| commit | 2997030834c0aaa395da14fedb2ff35267fc3349 (patch) | |
| tree | 09c163b56c7c69944a71475161c718202b19f34c | |
| parent | fab96baeae7a2e5279c7290295589c14ef719855 (diff) | |
| download | gcc-2997030834c0aaa395da14fedb2ff35267fc3349.tar.gz | |
2008-04-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/35892
* gfortran.dg/pr35154-dwarf2.f: Remove.
* gfortran.dg/pr35154-stabs.f: Remove.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134465 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/debug/pr35154-dwarf2.f | 37 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f | 35 |
3 files changed, 6 insertions, 72 deletions
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" } } |