[Bug fortran/69385] [6 regression] ICE on valid with -fcheck=mem

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |janus at gcc dot gnu.org
            Summary|[6 regression] ICE on valid |[6 regression] ICE on valid
                   |with -fcheck=all            |with -fcheck=mem

--- Comment #4 from janus at gcc dot gnu.org ---
The test case can be further condensed into:

module utilities
  implicit none

  type :: string
    character(len=:), allocatable :: s
  end type

contains

  function getCmdLine()
    type(string),dimension(:),allocatable :: getCmdLine
    allocate(getCmdLine(command_argument_count()))
  end function

end module


In particular the offending check (out of the range of stuff done with
-fcheck=all) is -fcheck=mem.


With a current trunk build the backtrace is:

internal compiler error: in wide_int_to_tree, at tree.c:1488
0xc757a3 wide_int_to_tree(tree_node*,
generic_wide_int<wide_int_ref_storage<false> > const&)
        /home/janus/gcc/trunk/gcc/tree.c:1488
0xc75899 build_int_cst(tree_node*, long)
        /home/janus/gcc/trunk/gcc/tree.c:1296
0x6bf425 gfc_trans_assignment_1
        /home/janus/gcc/trunk/gcc/fortran/trans-expr.c:9305
0x687ce5 trans_code
        /home/janus/gcc/trunk/gcc/fortran/trans.c:1704
0x6abeec gfc_generate_function_code(gfc_namespace*)
        /home/janus/gcc/trunk/gcc/fortran/trans-decl.c:6107
0x68b449 gfc_generate_module_code(gfc_namespace*)
        /home/janus/gcc/trunk/gcc/fortran/trans.c:2058
0x642ccd translate_all_program_units
        /home/janus/gcc/trunk/gcc/fortran/parse.c:5599
0x642ccd gfc_parse_file()
        /home/janus/gcc/trunk/gcc/fortran/parse.c:5818
0x684f32 gfc_be_parse_file
        /home/janus/gcc/trunk/gcc/fortran/f95-lang.c:201