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