https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84734
--- Comment #2 from Dominique d'Humieres ---
The following code
integer :: B(huge(1_8)+3_8,2_8)
integer(8) :: var1(2), var2, var3
var1 = shape(B,kind=8)
var2 = size(B,kind=8)
var3 = size(B,dim=1,kind=8)
end
gives the same ICE without
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84734
--- Comment #1 from Dominique d'Humieres ---
The following variant
integer(4) :: B(huge(1_4)+3_8,2_8)
integer(8) :: var1(2), var2, var3
print *, kind(B), size(B)
var1 = shape(B) ! { dg-error "SHAPE overflows its kind" }
print *, var1
var2 =
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84734
Dominique d'Humieres changed:
What|Removed |Added
Priority|P3 |P4