This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[patch, fortran] Fix spurious FAILs for operator ** testcase
- From: Scott Robert Ladd <coyote at coyotegulch dot com>
- To: fortran at gcc dot gnu dot org, gcc-patches at gcc dot gnu dot org
- Date: Sun, 31 Oct 2004 09:37:57 -0500
- Subject: [patch, fortran] Fix spurious FAILs for operator ** testcase
I'll admit I did this while half asleep, but even awake it seems to make
sense, thus eliminating several spurious "FAILs" from the testsuite.
..Scott
ChangeLog:
2004-10-31 Scott Robert Ladd <coyote@coyotegulch.com>
* power.f90: Fixed incorrect test cases
Index: power.f90
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/power.f90,v
retrieving revision 1.3
diff -u -3 -p -r1.3 power.f90
--- power.f90 19 May 2004 00:34:57 -0000 1.3
+++ power.f90 31 Oct 2004 14:35:02 -0000
@@ -16,9 +16,9 @@ program testpow
if (abs (j - 1) .gt. del) call abort
i = 1
j = i ** 10
- if (abs (j - 1) .gt. del) call abort
+ if (abs (j - 1024) .gt. del) call abort
j = i ** (-10)
- if (abs (j - 1) .gt. del) call abort
+ if (abs (j - 0) .gt. del) call abort
j = i ** 0
if (abs (j - 1) .gt. del) call abort
i = -1