[Bug tree-optimization/91221] [10 Regression] ICE in get_int_cst_ext_nunits, at tree.c:1299 since r273548

[marxin at gcc dot gnu.org]

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

--- Comment #1 from Martin Liška <marxin at gcc dot gnu.org> ---
One another test-case:

$ cat ice.f
      parameternumlev=3,numoblev=1000
      integer i_otyp(numoblev,numlev) 
      logical l_numob(numoblev,numlev)
      do ixe=1,numoblev
         do iye=1,numlev
            i_otyp(ixe,iye)=0
            l_numob(ixe,iye)=.false.
         enddo
      enddo
      do i=1,m
         do j=1,n
            if (l_numob(i,j)) then
               write(0) i_otyp
            endif
         enddo
      enddo
      end
$ gcc -Ofast -ftrapv ice.f -c
ice.f:1:15:

    1 |       parameternumlev=3,numoblev=1000
      |               1
Warning: Legacy Extension: PARAMETER without '()' at (1)
during GIMPLE pass: fre
ice.f:1:0:

    1 |       parameternumlev=3,numoblev=1000
      | 
internal compiler error: in smallest_mode_for_size, at stor-layout.c:355
0xded295 smallest_mode_for_size(poly_int<1u, unsigned long>, mode_class)
        /home/marxin/Programming/gcc/gcc/stor-layout.c:355
0xded295 smallest_mode_for_size(poly_int<1u, unsigned long>, mode_class)
        /home/marxin/Programming/gcc/gcc/stor-layout.c:344
0xdf23b2 smallest_int_mode_for_size(poly_int<1u, unsigned long>)
        /home/marxin/Programming/gcc/gcc/machmode.h:838
0xdf23b2 layout_type(tree_node*)
        /home/marxin/Programming/gcc/gcc/stor-layout.c:2326
0x10be9f4 build_nonstandard_integer_type(unsigned long, int)
        /home/marxin/Programming/gcc/gcc/tree.c:8218
0xfb5032 vn_walk_cb_data::push_partial_def(pd_data const&, tree_node*, long)
        /home/marxin/Programming/gcc/gcc/tree-ssa-sccvn.c:1852
0xfb5032 vn_walk_cb_data::push_partial_def(pd_data const&, tree_node*, long)
        /home/marxin/Programming/gcc/gcc/tree-ssa-sccvn.c:1739
0xfb620e vn_reference_lookup_3
        /home/marxin/Programming/gcc/gcc/tree-ssa-sccvn.c:2519
0xefbefc walk_non_aliased_vuses(ao_ref*, tree_node*, bool, void* (*)(ao_ref*,
tree_node*, void*), void* (*)(ao_ref*, tree_node*, void*, bool*), tree_node*
(*)(tree_node*), unsigned int&, void*)
        /home/marxin/Programming/gcc/gcc/tree-ssa-alias.c:3377
0xfade33 vn_reference_lookup(tree_node*, tree_node*, vn_lookup_kind,
vn_reference_s**, bool, tree_node**)
        /home/marxin/Programming/gcc/gcc/tree-ssa-sccvn.c:3108
0xfb8406 visit_reference_op_load
        /home/marxin/Programming/gcc/gcc/tree-ssa-sccvn.c:4466
0xfb8406 visit_stmt
        /home/marxin/Programming/gcc/gcc/tree-ssa-sccvn.c:4883
0xfba303 process_bb
        /home/marxin/Programming/gcc/gcc/tree-ssa-sccvn.c:6506
0xfbb606 do_rpo_vn
        /home/marxin/Programming/gcc/gcc/tree-ssa-sccvn.c:7137
0xfbcd8a execute
        /home/marxin/Programming/gcc/gcc/tree-ssa-sccvn.c:7286
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <https://gcc.gnu.org/bugs/> for instructions.