------- 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.000000000 +0100 +++ gcc/testsuite/gfortran.dg/subref_array_pointer_2.f90 2007-11-18 19:06:02.000000000 +0100 @@ -81,7 +81,7 @@ tar3%t => tar1 ptr3 => tar3%t%r ptr3 = cos (ptr3) - if (any (ptr3 .ne. (/cos(1.0_4), cos(3.0_4)/))) call abort () + if (any (abs(ptr3 - (/cos(1.0_4), cos(3.0_4)/)) >= epsilon(1.0_4))) call abort ()
ptr2 => tar3%t(:)%chr(2:3) ptr2 = " x" regtest for me. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34139
