re PR fortran/59198 (ICE on cyclically dependent polymorphic types)

2014-03-18  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/59198
	* gfortran.dg/proc_ptr_comp_45.f90 : Make tests fuzzy.

From-SVN: r221501

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2baa35bc752fa55c271eca7c0287e7d38f45567f..fd0e88579c9cd51d581bca06bbac07356dce4d78 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2014-03-18  Paul Thomas  <pault@gcc.gnu.org>
+
+       PR fortran/59198
+       * gfortran.dg/proc_ptr_comp_45.f90 : Make tests fuzzy.
+
 2015-03-18  Martin Liska  <mliska@suse.cz>
 
        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 8f8a8fee241fa01e97d3eac03bd00e76cc46a34a..31803453c54102a8b40a50de9336671eaef9ba75 100644 (file)
--- 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