gcc/testsuite/gfortran.dg/size_kind_3.f90

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