2 ! PR 30865 - passing a subroutine optional argument to size(dim=...)
10 if (ires /= 6) call abort
11 call checkv (ires, a, 1)
12 if (ires /= 2) call abort
14 subroutine checkv(ires,a1,opt1)
15 integer, intent(out) :: ires
17 integer, optional :: opt1
19 ires = size (a1, dim=opt1)