Searched refs:t1x1 (Results 1 – 1 of 1) sorted by relevance
| /external/llvm-project/flang/test/Semantics/ |
| D | modfile27.f90 | 9 type(t1), parameter :: t1x1(*) = [t1::t1(ia1=[1,2]),t1(ia1=[3,4])] variable
10 logical, parameter :: t1check1 = t1x1(2)%ia1(1) == 3
11 logical, parameter :: t1check2 = all(t1x1(1)%ia1 == [1,2])
12 logical, parameter :: t1check3 = all(t1x1(:)%ia1(1) == [1,3])
17 [t2 :: t2(dta1=[t1::t1x1]), &
|