From 91e11b2345d2792a5b16468f351e2158eb9b74a6 Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Wed, 18 Mar 2015 21:18:38 +0000 Subject: [PATCH] re PR fortran/59198 (ICE on cyclically dependent polymorphic types) 2014-03-18 Paul Thomas PR fortran/59198 * gfortran.dg/proc_ptr_comp_45.f90 : Make tests fuzzy. From-SVN: r221501 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/proc_ptr_comp_45.f90 | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2baa35bc752..fd0e88579c9 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2014-03-18 Paul Thomas + + PR fortran/59198 + * gfortran.dg/proc_ptr_comp_45.f90 : Make tests fuzzy. + 2015-03-18 Martin Liska PR ipa/65439 diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_45.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_45.f90 index 8f8a8fee241..31803453c54 100644 --- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_45.f90 +++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_45.f90 @@ -43,7 +43,7 @@ end allocate (template) allocate (template%rng) template%obs1_int => cos - if (template%obs1_int (arg) .ne. cos (arg)) call abort + if (abs (template%obs1_int (arg) - cos (arg)) .gt. 1e-4) call abort allocate (object, source = template) - if (object%obs1_int (arg) .ne. cos (arg)) call abort + if (abs (object%obs1_int (arg) - cos (arg)) .gt. 1e-4) call abort end -- 2.30.2