1! { dg-do compile }
2!
3! PR fortran/57142
4!
5integer :: B(huge(1)+3_8,2_8)
6integer(8) :: var1(2), var2, var3
7
8var1 = shape(B) ! { dg-error "SHAPE overflows its kind" }
9var2 = size(B) ! { dg-error "SIZE overflows its kind" }
10var3 = size(B,dim=1) ! { dg-error "SIZE overflows its kind" }
11end
12