6 equivalence (c(1:1), d(1)(2:)), (c(3:5), e(2:4))
7 equivalence (c(6:6), f(2)(:))
10 if (c
.ne
.'abcdefgh'.or
.d(1).ne
.'Aa'.or
.d(2).ne
.'bc') call abort
11 if (e
.ne
.'bcde'.or
.f(1).ne
.'de'.or
.f(2).ne
.'fg') call abort
14 equivalence (c(1:1), d(1)(2:2)), (c(3:5), e(2:4))
15 equivalence (c(6:6), f(2)(1:))
22 if (c
.ne
.'abcdefgh'.or
.d(1).ne
.'Aa'.or
.d(2).ne
.'bc') call abort
23 if (e
.ne
.'bcde'.or
.f(1).ne
.'de'.or
.f(2).ne
.'fg') call abort
29 equivalence (c(1:1), d(1)(2:)), (c(3:5), e(2:4))
30 equivalence (c(6:6), f(2)(:1))
34 if (c
.ne
.'abcdefgh'.or
.d(1).ne
.'Aa'.or
.d(2).ne
.'bc') call abort
35 if (e
.ne
.'bcde'.or
.f(1).ne
.'de'.or
.f(2).ne
.'fg') call abort
39 equivalence (c(1:1), d(1)(2:2)), (c(3:5), e(2:4))
40 equivalence (c(6:6), f(2)(1:2))
46 if (c
.ne
.'abcdefgh'.or
.d(1).ne
.'Aa'.or
.d(2).ne
.'bc') call abort
47 if (e
.ne
.'bcde'.or
.f(1).ne
.'de'.or
.f(2).ne
.'fg') call abort