| ! { dg-do run } | |
| program test_stuff | |
| implicit none | |
| integer :: ivar1(2,3), ivar2 | |
| ivar1 = 6 | |
| call poly_sizeof(ivar1, ivar2) | |
| if (ivar2 /= 4) STOP 1 | |
| contains | |
| subroutine poly_sizeof(arg1,arg2) | |
| class(*), intent(in) :: arg1(:,:) | |
| integer, intent(out) :: arg2 | |
| arg2 = sizeof(arg1(1,1)) | |
| end subroutine | |
| end program test_stuff |