Lines Matching refs:right
8 character*80 wrong, right variable
12 right = "&z i = 1,2 /"
13 call test_err(wrong, right)
17 right = "&z i = 1,2 &end"
18 call test_err(wrong, right)
22 right = "&z i = 1,2 /"
23 call test_err(wrong, right)
27 right = "&z i = 1,2 /"
28 call test_err(wrong, right)
32 right = "&z i = 1,2 /"
33 call test_err(wrong, right)
37 right = "&z ch(1:2) = 'ab' /"
38 call test_err(wrong, right)
42 right = "&z k = 1 /"
43 call test_err(wrong, right)
47 right = "&z i = 1,2 /"
48 call test_err(wrong, right)
52 right = "&z i = 2*2 /"
53 call test_err(wrong, right)
57 right = "&z i = 1 2 /"
58 call test_err(wrong, right)
62 right = "&z i = 1,2 /"
63 call test_err(wrong, right)
67 right = "&z i(1) = 1 /"
68 call test_err(wrong, right)
72 right = "&z i(1) = 1 /"
73 call test_err(wrong, right)
77 right = "&z i(1) = 1 /"
78 call test_err(wrong, right)
82 right = "&z i(1:2:1) = 1 2 /"
83 call test_err(wrong, right)
87 right = "&z i(1:2:1) = 1 2 /"
88 call test_err(wrong, right)
92 right = "&z i(1) = 1 /"
93 call test_err(wrong, right)
97 right = "&z i(1:1) = 1 /"
98 call test_err(wrong, right)
102 right = "&z i(1:2: 1) = 1 2 /"
103 call test_err(wrong, right)
107 right = "&z i(2:1:-1) = 1 2 /"
108 call test_err(wrong, right)
111 subroutine test_err(wrong, right) argument
112 character*80 wrong, right local
130 write (10, '(A)') right