diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2baa35bc752f..fd0e88579c9c 100644
--- 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 8f8a8fee241f..31803453c541 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