This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[g77 testsuite] Correct pr3743.x and f90-intrinsic-bit.x
- To: "'gcc-patches at gcc dot gnu dot org'" <gcc-patches at gcc dot gnu dot org>
- Subject: [g77 testsuite] Correct pr3743.x and f90-intrinsic-bit.x
- From: "Billinghurst, David (CRTS)" <David dot Billinghurst at riotinto dot com>
- Date: Thu, 16 Aug 2001 01:28:30 -0000
This patch corrects pr3743.x and f90-intrinsic-bit.x. I mistakenly returned
1 for XFAIL, so the tests never ran in this case. With this change the
tests run on irix, but are correctly reported as XFAIL. Also fixes thinko
in f90-intrinsic-bit.x
Tested in irix6.5. Please apply if OK
2001-08-16 David Billinghurst <daiv.Billinghurst@riotinto.com>
* g77.f-torture/compile/pr3743.x: Do not return 1 for xfail. Fix
thinko
* g77.f-torture/execute/f90-intrinsic-bit.x: Do not return 1 for
xfail
<<patch.txt>>
Index: pr3743.x
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/g77.f-torture/compile/pr3743.x,v
retrieving revision 1.1
diff -u -r1.1 pr3743.x
--- pr3743.x 2001/08/06 21:12:25 1.1
+++ pr3743.x 2001/08/15 18:18:50
@@ -4,7 +4,6 @@
global target_triplet
if { [istarget "mips-sgi-irix6*"] || [istarget "sparc-sun-solaris2.*"] } {
set torture_compile_xfail "$target_triplet"
- return 1
}
return 0
Index: f90-intrinsic-bit.x
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/g77.f-torture/execute/f90-intrinsic-bit.x,v
retrieving revision 1.1
diff -u -r1.1 f90-intrinsic-bit.x
--- f90-intrinsic-bit.x 2001/08/06 21:12:25 1.1
+++ f90-intrinsic-bit.x 2001/08/15 18:20:21
@@ -2,9 +2,8 @@
# GNATS PR 3743
global target_triplet
-if { [istarget "mips*-sgi-irix6*"] || [istarget "sparc-sun-solaris2.8"] } {
+if { [istarget "mips*-sgi-irix6*"] || [istarget "sparc-sun-solaris2.*"] } {
set torture_compile_xfail "$target_triplet"
- return 1
}
return 0