This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/34139] gfortran.dg/subref_array_pointer_2.f90 fails on Intel Darwin9
- From: "dominiq at lps dot ens dot fr" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 18 Nov 2007 19:20:26 -0000
- Subject: [Bug fortran/34139] gfortran.dg/subref_array_pointer_2.f90 fails on Intel Darwin9
- References: <bug-34139-12313@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #3 from dominiq at lps dot ens dot fr 2007-11-18 19:20 -------
--- ../_gcc_clean/gcc/testsuite/gfortran.dg/subref_array_pointer_2.f90
2007-11-15 13:26:25.000000000 +0100
+++ gcc/testsuite/gfortran.dg/subref_array_pointer_2.f90 2007-11-18
19:06:02.000000000 +0100
@@ -81,7 +81,7 @@
tar3%t => tar1
ptr3 => tar3%t%r
ptr3 = cos (ptr3)
- if (any (ptr3 .ne. (/cos(1.0_4), cos(3.0_4)/))) call abort ()
+ if (any (abs(ptr3 - (/cos(1.0_4), cos(3.0_4)/)) >= epsilon(1.0_4))) call
abort ()
ptr2 => tar3%t(:)%chr(2:3)
ptr2 = " x"
regtest for me.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34139