[Bug fortran/55735] ICE with deferred-length strings in COMMON

[gscfq@t-online.de]

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

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

$ cat z3.f90
program p
   character(:), pointer :: c
   common c
   n = len(c)
end


$ gfortran-10-20191201 -c z3.f90
z3.f90:4:0:

    4 |    n = len(c)
      |
internal compiler error: in gfc_conv_intrinsic_len, at
fortran/trans-intrinsic.c:7122
0x72ee62 gfc_conv_intrinsic_len
        ../../gcc/fortran/trans-intrinsic.c:7122
0x72ee62 gfc_conv_intrinsic_function(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-intrinsic.c:10166
0x704ada gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.c:8657
0x71445a gfc_trans_assignment_1
        ../../gcc/fortran/trans-expr.c:10848
0x6d4617 trans_code
        ../../gcc/fortran/trans.c:1852
0x6fda64 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6798
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