https://gcc.gnu.org/bugzilla/show_bug.cgi?id=113799
--- Comment #4 from anlauf at gcc dot gnu.org ---
It's the simplification of minval:
program p
implicit none
real, parameter :: inf = real(z'7F800000')
real, parameter :: someInf(*) = [inf, 0.]
print *, minval(-someInf)
end
pr113799.f90:5:26:
5 | print *, minval(-someInf)
| 1
Error: Arithmetic overflow at (1)
free(): invalid pointer
f951: internal compiler error: Aborted
0x10e0f3f crash_signal
../../gcc-trunk/gcc/toplev.cc:317
0x99d4f8 gfc_replace_expr(gfc_expr*, gfc_expr*)
../../gcc-trunk/gcc/fortran/expr.cc:640
0x99d4f8 simplify_intrinsic_op
../../gcc-trunk/gcc/fortran/expr.cc:1324
0x99d4f8 gfc_simplify_expr(gfc_expr*, int)
../../gcc-trunk/gcc/fortran/expr.cc:2320
0xa2c469 resolve_operator
../../gcc-trunk/gcc/fortran/resolve.cc:4605
0xa288c5 gfc_resolve_expr(gfc_expr*)
../../gcc-trunk/gcc/fortran/resolve.cc:7342
[...]
