5   subroutine check (x, y, l)  argument
7     logical :: l  local
8     l = l .or. x .ne. y
23     logical :: l  local
37     l = .false.
77     l = l .or. w(7:7) .ne. y
78     l = l .or. w(19:19) .ne. y
79     l = l .or. w(26:26) .ne. y
80     l = l .or. w(38:38) .ne. y
81     l = l .or. c .ne. w(8:19)
82     l = l .or. d .ne. w(1:7)
83     l = l .or. s .ne. w(20:26)
87 	  if (q .lt. 6) l = l .or. e(p, q, r) .ne. 5 * x + p + q + 2 * r
88 	  l = l .or. f(p, q, r) .ne. 25 * x + p + q + 2 * r
89 	  if (r .lt. 6 .and. q + r .le. 8) l = l .or. g(r, q) .ne. w(8:19)
90 	  if (r .lt. 6 .and. q + r .gt. 8) l = l .or. g(r, q) .ne. w(27:38)
91 	  if (r .lt. 6 .and. q + r .le. 8) l = l .or. h(r, q) .ne. w(1:7)
92 	  if (r .lt. 6 .and. q + r .gt. 8) l = l .or. h(r, q) .ne. w(20:26)
93 	  if (q .lt. 6) l = l .or. t(p, q, r) .ne. -10 + x + p - q + 2 * r
94 	  l = l .or. u(p, q, r) .ne. 30 - x - p + q - 2 * r
95 	  if (r .lt. 6 .and. q + r .le. 8) l = l .or. v(r, q) .ne. w(1:7)
96 	  if (r .lt. 6 .and. q + r .gt. 8) l = l .or. v(r, q) .ne. w(20:26)
101 	  l = l .or. i(p - 2, q - 1, r) .ne. (7.5 + x) * p * q * r
102 	  l = l .or. j(p, q + 3, r + 6) .ne. (9.5 + x) * p * q * r
106 	l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q
108     call check (size (e, 1), 2, l)
109     call check (size (e, 2), 3, l)
110     call check (size (e, 3), 7, l)
111     call check (size (e), 42, l)
112     call check (size (f, 1), 2, l)
113     call check (size (f, 2), 5, l)
114     call check (size (f, 3), 7, l)
115     call check (size (f), 70, l)
116     call check (size (g, 1), 5, l)
117     call check (size (g, 2), 5, l)
118     call check (size (g), 25, l)
119     call check (size (h, 1), 5, l)
120     call check (size (h, 2), 5, l)
121     call check (size (h), 25, l)
122     call check (size (i, 1), 3, l)
123     call check (size (i, 2), 5, l)
124     call check (size (i, 3), 7, l)
125     call check (size (i), 105, l)
126     call check (size (j, 1), 4, l)
127     call check (size (j, 2), 5, l)
128     call check (size (j, 3), 7, l)
129     call check (size (j), 140, l)
130     call check (size (k, 1), 5, l)
131     call check (size (k, 2), 1, l)
132     call check (size (k, 3), 3, l)
133     call check (size (k), 15, l)
136     if (l) call abort
141       l = l .or. w(7:7) .ne. y
142       l = l .or. w(19:19) .ne. y
143       l = l .or. w(26:26) .ne. y
144       l = l .or. w(38:38) .ne. y
145       l = l .or. c .ne. w(8:19)
146       l = l .or. d .ne. w(1:7)
147       l = l .or. s .ne. w(20:26)
151 	    if (q .lt. 6) l = l .or. e(p, q, r) .ne. 5 * x + p + q + 2 * r
152 	    l = l .or. f(p, q, r) .ne. 25 * x + p + q + 2 * r
153 	    if (r .lt. 6 .and. q + r .le. 8) l = l .or. g(r, q) .ne. w(8:19)
154 	    if (r .lt. 6 .and. q + r .gt. 8) l = l .or. g(r, q) .ne. w(27:38)
155 	    if (r .lt. 6 .and. q + r .le. 8) l = l .or. h(r, q) .ne. w(1:7)
156 	    if (r .lt. 6 .and. q + r .gt. 8) l = l .or. h(r, q) .ne. w(20:26)
157 	    if (q .lt. 6) l = l .or. t(p, q, r) .ne. -10 + x + p - q + 2 * r
158 	    l = l .or. u(p, q, r) .ne. 30 - x - p + q - 2 * r
159 	    if (r .lt. 6 .and. q + r .le. 8) l = l .or. v(r, q) .ne. w(1:7)
160 	    if (r .lt. 6 .and. q + r .gt. 8) l = l .or. v(r, q) .ne. w(20:26)
165 	    l = l .or. i(p - 2, q - 1, r) .ne. (7.5 + x) * p * q * r
166 	    l = l .or. j(p, q + 3, r + 6) .ne. (9.5 + x) * p * q * r
170 	  l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q
172       if (l) call abort