------- 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
jvdelisle at gcc dot gnu dot org Sun, 18 Nov 2007 09:28:09 -0800
------- 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