[Bug fortran/80508] New: ice in wide_int_to_tree, at tree.c:1489 with -O2

[dcb314 at hotmail dot com]

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

            Bug ID: 80508
           Summary: ice in wide_int_to_tree, at tree.c:1489 with -O2
           Product: gcc
           Version: 7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: dcb314 at hotmail dot com
  Target Milestone: ---

Created attachment 41258
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=41258&action=edit
fortran source code

The attached code does this with -O2

bug241.f:8754:2:

bug241.f:8714:72:

            IF (JM+1.GT.251) GOTO 6
                                                                        2
bug241.f:8754:2:

  6         FNAN=DNAN()
  1
Warning: Legacy Extension: Label at (1) is not in the same block as the GO
TO statement at (2)
bug241.f:83:0:

         SUBROUTINE CFS(Z,ZF,ZD)

internal compiler error: in wide_int_to_tree, at tree.c:1489
0xfca15e wide_int_to_tree(tree_node*, generic_wide_int<wide_int_ref_storag
e<false> > const&)
        ../../trunk/gcc/tree.c:1489
0xfcb400 build_int_cst_type(tree_node*, long)
        ../../trunk/gcc/tree.c:1312
0xdd49ce add_to_evolution
        ../../trunk/gcc/tree-scalar-evolution.c:829
0xdd9202 follow_ssa_edge_binary
        ../../trunk/gcc/tree-scalar-evolution.c:1007

I'm pretty sure this used to work last week (20170417).

The attached code is the same code as in bug number 68146.