Lines Matching refs:s4
6 character(kind=4,len=3) :: s4(3) variable
9 s4 = s1
10 s4 = [ "abc", "def", "ghi" ]
13 if (any (cshift (s4, 0) /= s4)) STOP 2
15 if (any (cshift (s4, 3) /= s4)) STOP 4
17 if (any (cshift (s4, 6) /= s4)) STOP 6
19 if (any (cshift (s4, -3) /= s4)) STOP 8
21 if (any (cshift (s4, -6) /= s4)) STOP 10
28 if (any (cshift (s4, 1) /= [ s4(2:3), s4(1) ])) STOP 15
29 if (any (cshift (s4, -1) /= [ s4(3), s4(1:2) ])) STOP 16
30 if (any (cshift (s4, 4) /= [ s4(2:3), s4(1) ])) STOP 17
31 if (any (cshift (s4, -4) /= [ s4(3), s4(1:2) ])) STOP 18
38 if (any (cshift (s4, 2) /= [ s4(3), s4(1:2) ])) STOP 23
39 if (any (cshift (s4, -2) /= [ s4(2:3), s4(1) ])) STOP 24
40 if (any (cshift (s4, 5) /= [ s4(3), s4(1:2) ])) STOP 25
41 if (any (cshift (s4, -5) /= [ s4(2:3), s4(1) ])) STOP 26
45 if (any (eoshift (s4, 0) /= s4)) STOP 28
47 if (any (eoshift (s4, 3) /= 4_"")) STOP 30
49 if (any (eoshift (s4, 3, 4_" ") /= 4_"")) STOP 32
51 if (any (eoshift (s4, 3, 4_" x ") /= 4_" x")) STOP 34
53 if (any (eoshift (s4, -3) /= 4_"")) STOP 36
55 if (any (eoshift (s4, -3, 4_" ") /= 4_"")) STOP 38
57 if (any (eoshift (s4, -3, 4_" x ") /= 4_" x")) STOP 40
59 if (any (eoshift (s4, 4) /= 4_"")) STOP 42
61 if (any (eoshift (s4, 4, 4_" ") /= 4_"")) STOP 44
63 if (any (eoshift (s4, 4, 4_" x ") /= 4_" x")) STOP 46
65 if (any (eoshift (s4, -4) /= 4_"")) STOP 48
67 if (any (eoshift (s4, -4, 4_" ") /= 4_"")) STOP 50
69 if (any (eoshift (s4, -4, 4_" x ") /= 4_" x")) STOP 52
75 if (any (eoshift (s4, 1) /= [ s4(2:3), 4_" " ])) STOP 57
76 if (any (eoshift (s4, -1) /= [ 4_" ", s4(1:2) ])) STOP 58
77 if (any (eoshift (s4, 1, 4_" x ") /= [ s4(2:3), 4_" x " ])) STOP 59
78 if (any (eoshift (s4, -1, 4_" x ") /= [ 4_" x ", s4(1:2) ])) STOP 60
84 if (any (eoshift (s4, 2) /= [ s4(3), 4_" ", 4_" " ])) STOP 65
85 if (any (eoshift (s4, -2) /= [ 4_" ", 4_" ", s4(1) ])) STOP 66
86 if (any (eoshift (s4, 2, 4_" x ") /= [ s4(3), 4_" x ", 4_" x " ])) STOP 67
87 if (any (eoshift (s4, -2, 4_" x ") /= [ 4_" x ", 4_" x ", s4(1) ])) STOP 68