https://gcc.gnu.org/bugzilla/show_bug.cgi?id=59198
Harald Anlauf <anlauf at gmx dot de> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |anlauf at gmx dot de
--- Comment #23 from Harald Anlauf <anlauf at gmx dot de> ---
(In reply to Paul Thomas from comment #22)
> 2014-03-17 Paul Thomas <pa...@gcc.gnu.org>
>
> PR fortran/59198
> * gfortran.dg/proc_ptr_comp_44.f90 : New test
> * gfortran.dg/proc_ptr_comp_45.f90 : New test
>
>
> Added:
> trunk/gcc/testsuite/gfortran.dg/proc_ptr_comp_44.f90
> trunk/gcc/testsuite/gfortran.dg/proc_ptr_comp_45.f90
Paul,
I'm seeing failures of the testcase proc_ptr_comp_45.f90 on my
i686-pc-linux-gnu box. Manually compiling the test with -mfpmath=sse
makes the test pass.
Alternatively, replacing the conditions by:
if (abs (template%obs1_int (arg) - cos (arg)) > 2.e-15) call abort
and
if (abs (object%obs1_int (arg) - cos (arg)) > 2.e-15) call abort
works for me.
