[Bug fortran/85942] ICE with PDTs

[gscfq@t-online.de]

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

G. Steinmetz <gscfq@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |gscfq@t-online.de

--- Comment #4 from G. Steinmetz <gscfq@t-online.de> ---
One possible reduction :


$ cat z1.f90
module m
   type t(a)
      private
      integer, len :: a = 1
   end type
end
program p
   use m
   type(t(a=:)), allocatable :: z
end


$ gfortran-9-20180603 -c z1.f90
f951: internal compiler error: Segmentation fault
0xba15af crash_signal
        ../../gcc/toplev.c:325
0x693919 gfc_get_pdt_instance(gfc_actual_arglist*, gfc_symbol**,
gfc_actual_arglist**)
        ../../gcc/fortran/decl.c:3473
0x699c71 gfc_match_decl_type_spec(gfc_typespec*, int)
        ../../gcc/fortran/decl.c:3990
0x69abbc gfc_match_data_decl()
        ../../gcc/fortran/decl.c:5808
0x6f6fb9 match_word_omp_simd
        ../../gcc/fortran/parse.c:93
0x6fa6ae match_word
        ../../gcc/fortran/parse.c:376
0x6fa6ae decode_statement
        ../../gcc/fortran/parse.c:376
0x6fc5d4 next_free
        ../../gcc/fortran/parse.c:1230
0x6fc5d4 next_statement
        ../../gcc/fortran/parse.c:1462
0x6fdecc parse_spec
        ../../gcc/fortran/parse.c:3854
0x7003b3 parse_progunit
        ../../gcc/fortran/parse.c:5667
0x701994 gfc_parse_file()
        ../../gcc/fortran/parse.c:6207
0x748c6f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204


Of course, compiles without "private"