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

gcc/testsuite/ChangeLog

+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

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