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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@221501 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2baa35b..fd0e885 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 8f8a8fe..3180345 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