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