https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82606
--- Comment #1 from G. Steinmetz <gs...@t-online.de> --- BTW, with an invalid modification (--> fortran/decl.c:3244) : $ cat z4.f90 program p type t(a, b, *) integer, kind :: a integer, len :: b real(a) :: r(b) end type type(t(8, 3)) :: x real(x%a) :: y end $ gfortran-8-20171015 -c z4.f90 f951: internal compiler error: Segmentation fault 0xb5a08f crash_signal ../../gcc/toplev.c:326 0x679fa3 gfc_get_pdt_instance(gfc_actual_arglist*, gfc_symbol**, gfc_actual_arglist**) ../../gcc/fortran/decl.c:3244 0x680221 gfc_match_decl_type_spec(gfc_typespec*, int) ../../gcc/fortran/decl.c:3787 0x68115c gfc_match_data_decl() ../../gcc/fortran/decl.c:5605 0x6dbac9 match_word_omp_simd ../../gcc/fortran/parse.c:93 0x6df17e match_word ../../gcc/fortran/parse.c:376 0x6df17e decode_statement ../../gcc/fortran/parse.c:376 0x6e0fb4 next_free ../../gcc/fortran/parse.c:1225 0x6e0fb4 next_statement ../../gcc/fortran/parse.c:1457 0x6e289c parse_spec ../../gcc/fortran/parse.c:3831 0x6e4d93 parse_progunit ../../gcc/fortran/parse.c:5634 0x6e6354 gfc_parse_file() ../../gcc/fortran/parse.c:6174 0x72a6bf gfc_be_parse_file ../../gcc/fortran/f95-lang.c:204