mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-24 04:10:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Paul Thomas 2015-03-18 21:18:38 +00:00
parent cf3f91ddc8
commit 91e11b2345
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

4
gcc/testsuite/gfortran.dg/proc_ptr_comp_45.f90
View File

@ -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