[Bug fortran/103137] New: [12 Regression] ICE in gfc_simplify_transpose, at fortran/simplify.c:8181

[gscfq@t-online.de]

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

            Bug ID: 103137
           Summary: [12 Regression] ICE in gfc_simplify_transpose, at
                    fortran/simplify.c:8181
           Product: gcc
           Version: 12.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Changed between 20211031 and 20211107 :
(follow-up of pr102715)


$ cat z1.f90
program p
   type t
      integer :: n
   end type
   type(t), parameter :: a(4) = [t(1), t(2), t(3), t(4)]
   class(t), parameter :: b(2,2) = reshape(a, [2,2])
   type(t), parameter :: c(2,2) = transpose(b)
end


$ gfortran-12-20211031 -c z1.f90
z1.f90:6:32:

    6 |    class(t), parameter :: b(2,2) = reshape(a, [2,2])
      |                                1
Error: CLASS variable 'b' at (1) cannot have the PARAMETER attribute


$ gfortran-12-20211107 -c z1.f90
f951: internal compiler error: Segmentation fault
0xd4f7bf crash_signal
        ../../gcc/toplev.c:322
0x82edf3 gfc_simplify_transpose(gfc_expr*)
        ../../gcc/fortran/simplify.c:8181
0x7aa89a do_simplify
        ../../gcc/fortran/intrinsic.c:4658
0x7b52ea gfc_intrinsic_func_interface(gfc_expr*, int)
        ../../gcc/fortran/intrinsic.c:5051
0x808bec resolve_unknown_f
        ../../gcc/fortran/resolve.c:2972
0x808bec resolve_function
        ../../gcc/fortran/resolve.c:3329
0x808bec gfc_resolve_expr(gfc_expr*)
        ../../gcc/fortran/resolve.c:7166
0x79a754 gfc_reduce_init_expr(gfc_expr*)
        ../../gcc/fortran/expr.c:3130
0x79d620 gfc_match_init_expr(gfc_expr**)
        ../../gcc/fortran/expr.c:3178
0x787bf4 variable_decl
        ../../gcc/fortran/decl.c:3004
0x787bf4 gfc_match_data_decl()
        ../../gcc/fortran/decl.c:6297
0x7f12c3 match_word
        ../../gcc/fortran/parse.c:67
0x7f12c3 decode_statement
        ../../gcc/fortran/parse.c:378
0x7f2d0a next_free
        ../../gcc/fortran/parse.c:1388
0x7f2d0a next_statement
        ../../gcc/fortran/parse.c:1620
0x7f442b parse_spec
        ../../gcc/fortran/parse.c:4159
0x7f779c parse_progunit
        ../../gcc/fortran/parse.c:6170
0x7f8a71 gfc_parse_file()
        ../../gcc/fortran/parse.c:6715
0x845d3f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:216