[Bug fortran/103505] ICE in compare_bound_mpz_t, at fortran/resolve.c:4587

[anlauf at gcc dot gnu.org via Gcc-bugs]

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

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
                 CC|                            |anlauf at gcc dot gnu.org
   Last reconfirmed|                            |2021-11-30
     Ever confirmed|0                           |1

--- Comment #1 from anlauf at gcc dot gnu.org ---
How come we let pass a non-integer into the array spec?

program p
  integer, parameter :: a((2.)) = [4, 8]
end

  symtree: 'a'           || symbol: 'a'            
    type spec : (INTEGER 4)
    attributes: (PARAMETER IMPLICIT-SAVE DIMENSION)
    value: (/ 4 , 8 /)
    Array spec:(1 [0] AS_EXPLICIT 1 2.00000000 )


(Without the extra parentheses this does not happen...)