[Bug fortran/69834] Collision in derived type hashes

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69834

--- Comment #9 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> > > Created attachment 37791 [details]
> > >   --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=37791&action=edit
> > > Better Patch
> > 
> > With the patch applied to my working tree (many patches) fixes the PR
> > but I see several regressions at run time
> > 
> > FAIL: gfortran.dg/allocate_with_source_(7|8).f08   *  execution test
> > FAIL: gfortran.dg/unlimited_polymorphic_zzz.f03   *  execution test
> > 
> > with zzz in (1, 5, 6, 14, 17, 18, 20, 22). AFAICT it "fixes"
> > 
> > FAIL: gfortran.dg/finalize_21.f90   -O   scan-tree-dump original "static
> > struct __vtype__STAR __vtab__STAR = {._hash=0, ._size=., ._extends=0B,
> > ._def_init=0B, ._copy=0B, ._final=0B};"

> I just applied the patch posted here to another tree on another machine
> and it regtests fine.

The failures come from a conflict with your patch for recursive allocatable
derived type components. If I revert it, gfortran regtests fine with the patch
for this PR with the following patch

--- ../_clean/gcc/testsuite/gfortran.dg/finalize_21.f90 2015-05-29
11:25:09.000000000 +0200
+++ gcc/testsuite/gfortran.dg/finalize_21.f90   2016-02-26 10:39:18.000000000
+0100
@@ -8,4 +8,4 @@
 class(*), allocatable :: var
 end

-! { dg-final { scan-tree-dump "static struct __vtype__STAR __vtab__STAR =
{._hash=0, ._size=., ._extends=0B, ._def_init=0B, ._copy=0B, ._final=0B};"
"original" } }
+! { dg-final { scan-tree-dump "static struct __vtype__STAR __vtab__STAR =
\{._hash=0, ._size=., ._extends=0B, ._def_init=0B, ._copy=0B, ._final=0B,"
"original" } }