5 ! Ensure that "var" gets allocated.
7 ! Contributed by Tobias Burnus
14 class(t
), allocatable
:: var(:)
17 if (lbound(var
, 1) /= 1 .and
. ubound(var
, 1) /= 2) call abort()
18 if (var(1)%i
/= 11 .or
. var(2)%i
/= 12) call abort()
21 if (lbound(var
, 1) /= 1 .and
. ubound(var
, 1) /= 3) call abort()
22 if (var(1)%i
/= 11 .or
. var(2)%i
/= 12 .or
. var(3)%i
/= 13) call abort()
24 subroutine poly_init()
26 var
= [t
:: t(11), t(12)]
27 end subroutine poly_init
28 subroutine poly_init2()
29 var
= [t
:: t(11), t(12), t(13)]
30 end subroutine poly_init2