Searched refs:dta1 (Results 1 – 1 of 1) sorted by relevance
14 type(t1) :: dta1(2) component17 [t2 :: t2(dta1=[t1::t1x1]), &18 t2(dta1=[t1::t1(ia1=[5,6]),t1(ia1=[7,8])])]19 logical, parameter :: t2check1 = t2x1(1)%dta1(2)%ia1(2) == 421 all(t2x1(2)%dta1(2)%ia1(:) == [7,8])23 all(t2x1(1)%dta1(:)%ia1(2) == [2,4])25 all(t2x1(:)%dta1(1)%ia1(2) == [2,6])