blob: 20de8a3714cc0e20a58481fbe45e135e76a54eda (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { 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
|