--- Comment #5 from jvdelisle at gcc dot gnu dot org 2007-11-18 21:38
---
Fixed on trunk.
--
jvdelisle at gcc dot gnu dot org changed:
What|Removed |Added
St
--- Comment #4 from jvdelisle at gcc dot gnu dot org 2007-11-18 20:59
---
Subject: Bug 34139
Author: jvdelisle
Date: Sun Nov 18 20:59:41 2007
New Revision: 130277
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=130277
Log:
2007-11-18 Jerry DeLisle <[EMAIL PROTECTED]>
--- 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.0 +0100
+++ gcc/testsuite/gfortran.dg/subref_array_pointer_2.f902007-11-18
19:06:02.0 +0100
@@ -81,7
--- Comment #2 from pault at gcc dot gnu dot org 2007-11-18 19:09 ---
(In reply to comment #1)
> How about this:
>
> if (any(abs(ptr3 - (/cos(1.0_4), cos(3.0_4)/)).gt. 1e-05)) call abort ()
>
Jerry,
Looks "obvious" to me...
Cheers
Paul
--
http://gcc.gnu.org/bugzilla/show_bu
--- Comment #1 from jvdelisle at gcc dot gnu dot org 2007-11-18 17:27
---
How about this:
if (any(abs(ptr3 - (/cos(1.0_4), cos(3.0_4)/)).gt. 1e-05)) call abort ()
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34139
