https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103610
anlauf at gcc dot gnu.org changed: What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |NEW Ever confirmed|0 |1 Last reconfirmed| |2021-12-07 CC| |anlauf at gcc dot gnu.org --- Comment #2 from anlauf at gcc dot gnu.org --- Really funny. The bug however does not need maskl/maskr: program p integer, parameter :: a(-1) = 1 integer, parameter :: c(1) = shape(a) print *, c end This prints: -1 instead of 0.