https://gcc.gnu.org/bugzilla/show_bug.cgi?id=79426
--- Comment #7 from G. Steinmetz <gs...@t-online.de> ---
And with type "t" stripped down to a class only, respectively.
Case analogous to the one in comment 3.
$ cat zc2.f90
program p
type t
class(*), pointer :: u(:)
end type
type(t) :: z
select type (y => z%u(1))
end select
end
$ gfortran-9-20181111 -c zc2.f90
zc2.f90:1:0:
1 | program p
|
internal compiler error: in gfc_advance_chain, at fortran/trans.c:58
0x6bf9d7 gfc_advance_chain(tree_node*, int)
../../gcc/fortran/trans.c:58
0x6ea85a gfc_class_len_get(tree_node*)
../../gcc/fortran/trans-expr.c:229
0x727331 trans_associate_var
../../gcc/fortran/trans-stmt.c:2020
0x72d9d1 gfc_trans_block_construct(gfc_code*)
../../gcc/fortran/trans-stmt.c:2073
0x6bff57 trans_code
../../gcc/fortran/trans.c:1918
0x6e7674 gfc_generate_function_code(gfc_namespace*)
../../gcc/fortran/trans-decl.c:6509
0x6744d6 translate_all_program_units
../../gcc/fortran/parse.c:6125
0x6744d6 gfc_parse_file()
../../gcc/fortran/parse.c:6328
0x6bc89f gfc_be_parse_file
../../gcc/fortran/f95-lang.c:204
