[Bug fortran/99852] Missing error "Arithmetic overflow" for some cases

["gscfq@t-online.de" <gcc-bugzilla@gcc.gnu.org>]

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

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

In addition a side mark, the following gives for all a-d :


$ cat z3.f90
program p
   implicit none
   integer, parameter :: wik = 1
   integer(wik), parameter :: a = -huge(1_wik) - 1_wik
   integer(wik) :: b = -huge(1_wik) - 1_wik
   integer(wik) :: c
   c = -huge(1_wik) - 1_wik
   associate (d => -huge(1_wik) - 1_wik)
      print *, a, b, c, d
   end associate
end


$ gfortran-11-20210328 -c z3.f90 -pedantic
z3.f90:4:33:

    4 |    integer(wik), parameter :: a = -huge(1_wik) - 1_wik
      |                                 1
Warning: Integer outside symmetric range implied by Standard Fortran at (1)
z3.f90:5:22:

    5 |    integer(wik) :: b = -huge(1_wik) - 1_wik
      |                      1
Warning: Integer outside symmetric range implied by Standard Fortran at (1)
z3.f90:7:7:

    7 |    c = -huge(1_wik) - 1_wik
      |       1
Warning: Integer outside symmetric range implied by Standard Fortran at (1)
z3.f90:8:19:

    8 |    associate (d => -huge(1_wik) - 1_wik)
      |                   1
Warning: Integer outside symmetric range implied by Standard Fortran at (1)