[Bug fortran/79685] [6/7/8/9 Regression] ICE on valid code in gfc_match_structur_constructor

[gs...@t-online.de]

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

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

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

--- Comment #5 from G. Steinmetz <gs...@t-online.de> ---

Update :


$ cat z1.f90
module m
   type t
   end type
end
module m2
   use m, t2 => t
   type(t2) :: x
   data x /t2()/
end


$ cat z2_chk.f90
module m
   type t
   end type
end
module m2
   use m, t2 => t
   type(t) :: x
   data x /t2()/
end


$ gfortran-9-20181021 -c z1.f90
f951: internal compiler error: in gfc_match_structure_constructor, at
fortran/primary.c:3066
0x67835d gfc_match_structure_constructor(gfc_symbol*, gfc_expr**)
        ../../gcc/fortran/primary.c:3065
0x6048ff match_data_constant
        ../../gcc/fortran/decl.c:427
0x6049b3 top_val_list
        ../../gcc/fortran/decl.c:472
0x604bcf gfc_match_data()
        ../../gcc/fortran/decl.c:616
0x669741 match_word
        ../../gcc/fortran/parse.c:65
0x66ce86 decode_statement
        ../../gcc/fortran/parse.c:468
0x66daaa next_free
        ../../gcc/fortran/parse.c:1234
0x66daaa next_statement
        ../../gcc/fortran/parse.c:1466
0x66f0bb parse_spec
        ../../gcc/fortran/parse.c:3858
0x672d1c parse_module
        ../../gcc/fortran/parse.c:5934
0x673067 gfc_parse_file()
        ../../gcc/fortran/parse.c:6247
0x6ba3ff gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204