https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71936
--- Comment #2 from Gerhard Steinmetz
---
To get the whole picture it's necessary to take a look at four
analogous cases with "type" instead of "class". They compile without
an error (v6/v7), but occationally run for a long time (y3/y4).
$ ca
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71936
--- Comment #1 from Gerhard Steinmetz
---
These other two cases produce an related ICE :
$ cat z3.f90
program p
type t
end type
class(t), pointer :: x(:)
allocate (x, mold=f())
deallocate (x)
allocate (x, source=f())
contains
