------- 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

Reply via email to