12 lines
288 B
Fortran
12 lines
288 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR fortran/57142
|
|
!
|
|
integer :: B(huge(1)+3_8,2_8)
|
|
integer(8) :: var1(2), var2, var3
|
|
|
|
var1 = shape(B) ! { dg-error "SHAPE overflows its kind" }
|
|
var2 = size(B) ! { dg-error "SIZE overflows its kind" }
|
|
var3 = size(B,dim=1) ! { dg-error "SIZE overflows its kind" }
|
|
end
|