[Bug fortran/88356] [9 Regression] ICE with -Werror in reduce_binary_ac, at fortran/arith.c:1318 (and others)

[gscfq@t-online.de]

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

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

$ cat z2.f90
program p
   integer :: z(1) = reshape([nint([2.0])], [1])
end


$ cat z3.f90
program p
   integer, parameter :: z(2) = [1,2]
   print *, any(abs(bessel_jn(z, 1.0) - bessel_jn(z, 1.0)) > epsilon(0.0))
end


$ cat z4.f90
program p
  character(3), parameter :: z(2) = 'abc'
  if (any(len_trim(z) /= [3,3])) stop
end


$ gfortran-9-20181202 -c z2.f90 -Werror -Wundef
f951: Error: command line option '-Wundef' is valid for C/C++/ObjC/ObjC++ but
not for Fortran [-Werror]
f951: internal compiler error: Segmentation fault
0xb2ec9f crash_signal
        ../../gcc/toplev.c:326
0x621066 check_null
        ../../gcc/fortran/expr.c:2691
0x621066 gfc_check_init_expr(gfc_expr*)
        ../../gcc/fortran/expr.c:2792
0x5ed0b5 check_constructor
        ../../gcc/fortran/array.c:1429
#...



$ gfortran-9-20181202 -c z3.f90 -Werror -Wundef
f951: Error: command line option '-Wundef' is valid for C/C++/ObjC/ObjC++ but
not for Fortran [-Werror]
f951: internal compiler error: Segmentation fault
0xb2ec9f crash_signal
        ../../gcc/toplev.c:326
0x5e9362 reduce_binary_aa
        ../../gcc/fortran/arith.c:1408
#...


$ gfortran-9-20181202 -c z4.f90 -Werror -Wundef
f951: Error: command line option '-Wundef' is valid for C/C++/ObjC/ObjC++ but
not for Fortran [-Werror]
f951: internal compiler error: Segmentation fault
0xb2ec9f crash_signal
        ../../gcc/toplev.c:326
0x138b3c0 splay_tree_min
        ../../libiberty/splay-tree.c:487
0x6007cd gfc_constructor_first(splay_tree_s*)
        ../../gcc/fortran/constructor.c:234
0x5e927a reduce_binary_aa
        ../../gcc/fortran/arith.c:1388
#...