------- 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_bug.cgi?id=34139

Reply via email to