[Bug fortran/71759] New: ICE in enforce_single_undo_checkpoint, at fortran/symbol.c:3478

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

            Bug ID: 71759
           Summary: ICE in enforce_single_undo_checkpoint, at
                    fortran/symbol.c:3478
           Product: gcc
           Version: 7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

Typo, e.g. for intrinsic functions with a non-scalar argument :

$ cat z1.f90
program p
   print *, abs([real(1)/9., real(2)/9.])
   print *, abs([real(10/9., real(2)/9.])
end


$ gfortran-6 z1.f90
z1.f90:3:39:

    print *, abs([real(10/9., real(2)/9.])
                                       1
Error: Syntax error in argument list at (1)


$ gfortran-7-20160703 z1.f90
f951: internal compiler error: in enforce_single_undo_checkpoint, at
fortran/symbol.c:3478
0x5d872a enforce_single_undo_checkpoint
        ../../gcc/fortran/symbol.c:3478
0x7090c8 enforce_single_undo_checkpoint
        ../../gcc/fortran/symbol.c:3566
0x7090c8 gfc_commit_symbol(gfc_symbol*)
        ../../gcc/fortran/symbol.c:3554
0x69e5fd gfc_convert_type_warn(gfc_expr*, gfc_typespec*, int, int)
        ../../gcc/fortran/intrinsic.c:4767
0x6561b0 eval_intrinsic
        ../../gcc/fortran/arith.c:1544
0x6564ce eval_intrinsic_f3
        ../../gcc/fortran/arith.c:1725
0x6b4493 match_add_operand
        ../../gcc/fortran/matchexp.c:394
0x6b46bc match_level_2
        ../../gcc/fortran/matchexp.c:480
0x6b4812 match_level_3
        ../../gcc/fortran/matchexp.c:551
0x6b4924 match_level_4
        ../../gcc/fortran/matchexp.c:599
0x6b4924 match_and_operand
        ../../gcc/fortran/matchexp.c:693
0x6b4ae2 match_or_operand
        ../../gcc/fortran/matchexp.c:722
0x6b4bd2 match_equiv_operand
        ../../gcc/fortran/matchexp.c:765
0x6b4cc2 match_level_5
        ../../gcc/fortran/matchexp.c:811
0x6b4031 gfc_match_expr(gfc_expr**)
        ../../gcc/fortran/matchexp.c:870
0x688522 gfc_match_init_expr(gfc_expr**)
        ../../gcc/fortran/expr.c:2702
0x672598 gfc_match_kind_spec(gfc_typespec*, bool)
        ../../gcc/fortran/decl.c:2569
0x6af456 gfc_match_type_spec(gfc_typespec*)
        ../../gcc/fortran/match.c:2063
0x65ac45 gfc_match_array_constructor(gfc_expr**)
        ../../gcc/fortran/array.c:1106
0x6b41c9 match_primary
        ../../gcc/fortran/matchexp.c:153

# (configured with --enable-checking=yes)