[Bug fortran/90076] Polymorphic Allocate on Assignment Memory Leak

[gscfq@t-online.de]

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

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

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

--- Comment #2 from G. Steinmetz <gscfq@t-online.de> ---

An alternate take :


$ cat z1.f90
program p
contains
   subroutine s
      class(*), allocatable :: x
      x = undef
   end
end


$ gfortran-10-20191201 -c z1.f90
z1.f90:5:0:

    5 |       x = undef
      |
internal compiler error: in build_function_decl, at fortran/trans-decl.c:2324
0x6f2c39 build_function_decl
        ../../gcc/fortran/trans-decl.c:2321
0x6fa334 gfc_get_symbol_decl(gfc_symbol*)
        ../../gcc/fortran/trans-decl.c:1727
0x7088e0 gfc_conv_variable
        ../../gcc/fortran/trans-expr.c:2624
0x704afa gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.c:8665
0x716511 gfc_conv_initializer(gfc_expr*, gfc_typespec*, tree_node*, bool, bool,
bool)
        ../../gcc/fortran/trans-expr.c:7660
0x7047f3 gfc_conv_structure(gfc_se*, gfc_expr*, int)
        ../../gcc/fortran/trans-expr.c:8553
0x7164a1 gfc_conv_initializer(gfc_expr*, gfc_typespec*, tree_node*, bool, bool,
bool)
        ../../gcc/fortran/trans-expr.c:7675
0x6f9e5f gfc_get_symbol_decl(gfc_symbol*)
        ../../gcc/fortran/trans-decl.c:1888
0x7088e0 gfc_conv_variable
        ../../gcc/fortran/trans-expr.c:2624
0x704afa gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.c:8665
0x71294f trans_class_vptr_len_assignment
        ../../gcc/fortran/trans-expr.c:8967
0x714e19 trans_class_assignment
        ../../gcc/fortran/trans-expr.c:10596
0x714e19 gfc_trans_assignment_1
        ../../gcc/fortran/trans-expr.c:11002
0x6d4617 trans_code
        ../../gcc/fortran/trans.c:1852
0x6fda64 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6798
0x6fd864 gfc_generate_contained_functions
        ../../gcc/fortran/trans-decl.c:5793
0x6fd864 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6730
0x686c26 translate_all_program_units
        ../../gcc/fortran/parse.c:6302
0x686c26 gfc_parse_file()
        ../../gcc/fortran/parse.c:6541
0x6d10bf gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:210