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