diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2015-03-18 21:18:38 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2015-03-18 21:18:38 +0000 |
| commit | 91e11b2345d2792a5b16468f351e2158eb9b74a6 (patch) | |
| tree | 1d4eecd6fdfbca610dc29dc87ff056a1d2f8667c | |
| parent | cf3f91ddc8d7885e57ea87c930e5a6f3729974fe (diff) | |
| download | gcc-91e11b2345d2792a5b16468f351e2158eb9b74a6.zip gcc-91e11b2345d2792a5b16468f351e2158eb9b74a6.tar.gz gcc-91e11b2345d2792a5b16468f351e2158eb9b74a6.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 2baa35b..fd0e885 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 8f8a8fe..3180345 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 |