1! { dg-do run } 2program test_stuff 3 4 implicit none 5 6 integer :: ivar1(2,3), ivar2 7 8 ivar1 = 6 9 call poly_sizeof(ivar1, ivar2) 10 11 if (ivar2 /= 4) STOP 1 12 13 contains 14 15 subroutine poly_sizeof(arg1,arg2) 16 class(*), intent(in) :: arg1(:,:) 17 integer, intent(out) :: arg2 18 arg2 = sizeof(arg1(1,1)) 19 end subroutine 20 21end program test_stuff 22