OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [cray_pointers_2.f90] - Blame information for rev 316

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn 
! { dg-do run }
2 
! { dg-options "-fcray-pointer -fbounds-check" }
3 
! Series of routines for testing a Cray pointer implementation
4 
program craytest
5 
  common /errors/errors(400)
6 
  common /foo/foo ! To prevent optimizations
7 
  integer foo
8 
  integer i
9 
  logical errors
10 
  errors = .false.
11 
  foo = 0
12 
  call ptr1
13 
  call ptr2
14 
  call ptr3
15 
  call ptr4
16 
  call ptr5
17 
  call ptr6
18 
  call ptr7
19 
  call ptr8
20 
  call ptr9(9,10,11)
21 
  call ptr10(9,10,11)
22 
  call ptr11(9,10,11)
23 
  call ptr12(9,10,11)
24 
  call ptr13(9,10)
25 
  call parmtest
26 
! NOTE: Tests 1 through 12 were removed from this file
27 
! and placed in loc_1.f90, so we start at 13
28 
  do i=13,400
29 
     if (errors(i)) then
30 
!        print *,"Test",i,"failed."
31 
        call abort()
32 
     endif
33 
  end do
34 
  if (foo.eq.0) then
35 
!     print *,"Test did not run correctly."
36 
     call abort()
37 
  endif
38 
end program craytest
39 
 
40 
! ptr1 through ptr13 that Cray pointees are correctly used with
41 
! a variety of declaration styles
42 
subroutine ptr1
43 
  common /errors/errors(400)
44 
  logical :: errors, intne, realne, chne, ch8ne
45 
  integer :: i,j,k
46 
  integer, parameter :: n = 9
47 
  integer, parameter :: m = 10
48 
  integer, parameter :: o = 11
49 
  integer itarg1 (n)
50 
  integer itarg2 (m,n)
51 
  integer itarg3 (o,m,n)
52 
  real rtarg1(n)
53 
  real rtarg2(m,n)
54 
  real rtarg3(o,m,n)
55 
  character chtarg1(n)
56 
  character chtarg2(m,n)
57 
  character chtarg3(o,m,n)
58 
  character*8 ch8targ1(n)
59 
  character*8 ch8targ2(m,n)
60 
  character*8 ch8targ3(o,m,n)
61 
  type drvd
62 
     real r1
63 
     integer i1
64 
     integer i2(5)
65 
  end type drvd
66 
  type(drvd) dtarg1(n)
67 
  type(drvd) dtarg2(m,n)
68 
  type(drvd) dtarg3(o,m,n)
69 
 
70 
  type(drvd) dpte1(n)
71 
  type(drvd) dpte2(m,n)
72 
  type(drvd) dpte3(o,m,n)
73 
  integer ipte1 (n)
74 
  integer ipte2 (m,n)
75 
  integer ipte3 (o,m,n)
76 
  real rpte1(n)
77 
  real rpte2(m,n)
78 
  real rpte3(o,m,n)
79 
  character chpte1(n)
80 
  character chpte2(m,n)
81 
  character chpte3(o,m,n)
82 
  character*8 ch8pte1(n)
83 
  character*8 ch8pte2(m,n)
84 
  character*8 ch8pte3(o,m,n)
85 
 
86 
  pointer(iptr1,dpte1)
87 
  pointer(iptr2,dpte2)
88 
  pointer(iptr3,dpte3)
89 
  pointer(iptr4,ipte1)
90 
  pointer(iptr5,ipte2)
91 
  pointer(iptr6,ipte3)
92 
  pointer(iptr7,rpte1)
93 
  pointer(iptr8,rpte2)
94 
  pointer(iptr9,rpte3)
95 
  pointer(iptr10,chpte1)
96 
  pointer(iptr11,chpte2)
97 
  pointer(iptr12,chpte3)
98 
  pointer(iptr13,ch8pte1)
99 
  pointer(iptr14,ch8pte2)
100 
  pointer(iptr15,ch8pte3)
101 
 
102 
  iptr1 = loc(dtarg1)
103 
  iptr2 = loc(dtarg2)
104 
  iptr3 = loc(dtarg3)
105 
  iptr4 = loc(itarg1)
106 
  iptr5 = loc(itarg2)
107 
  iptr6 = loc(itarg3)
108 
  iptr7 = loc(rtarg1)
109 
  iptr8 = loc(rtarg2)
110 
  iptr9 = loc(rtarg3)
111 
  iptr10= loc(chtarg1)
112 
  iptr11= loc(chtarg2)
113 
  iptr12= loc(chtarg3)
114 
  iptr13= loc(ch8targ1)
115 
  iptr14= loc(ch8targ2)
116 
  iptr15= loc(ch8targ3)
117 
 
118 
 
119 
  do, i=1,n
120 
     dpte1(i)%i1=i
121 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
122 
        ! Error #13
123 
        errors(13) = .true.
124 
     endif
125 
 
126 
     dtarg1(i)%i1=2*dpte1(i)%i1
127 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
128 
        ! Error #14
129 
        errors(14) = .true.
130 
     endif
131 
 
132 
     ipte1(i) = i
133 
     if (intne(ipte1(i), itarg1(i))) then
134 
        ! Error #15
135 
        errors(15) = .true.
136 
     endif
137 
 
138 
     itarg1(i) = -ipte1(i)
139 
     if (intne(ipte1(i), itarg1(i))) then
140 
        ! Error #16
141 
        errors(16) = .true.
142 
     endif
143 
 
144 
     rpte1(i) = i * 5.0
145 
     if (realne(rpte1(i), rtarg1(i))) then
146 
        ! Error #17
147 
        errors(17) = .true.
148 
     endif
149 
 
150 
     rtarg1(i) = i * (-5.0)
151 
     if (realne(rpte1(i), rtarg1(i))) then
152 
        ! Error #18
153 
        errors(18) = .true.
154 
     endif
155 
 
156 
     chpte1(i) = 'a'
157 
     if (chne(chpte1(i), chtarg1(i))) then
158 
        ! Error #19
159 
        errors(19) = .true.
160 
     endif
161 
 
162 
     chtarg1(i) = 'z'
163 
     if (chne(chpte1(i), chtarg1(i))) then
164 
        ! Error #20
165 
        errors(20) = .true.
166 
     endif
167 
 
168 
     ch8pte1(i) = 'aaaaaaaa'
169 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
170 
        ! Error #21
171 
        errors(21) = .true.
172 
     endif
173 
 
174 
     ch8targ1(i) = 'zzzzzzzz'
175 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
176 
        ! Error #22
177 
        errors(22) = .true.
178 
     endif
179 
 
180 
     do, j=1,m
181 
        dpte2(j,i)%r1=1.0
182 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
183 
           ! Error #23
184 
           errors(23) = .true.
185 
        endif
186 
 
187 
        dtarg2(j,i)%r1=2*dpte2(j,i)%r1
188 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
189 
           ! Error #24
190 
           errors(24) = .true.
191 
        endif
192 
 
193 
        ipte2(j,i) = i
194 
        if (intne(ipte2(j,i), itarg2(j,i))) then
195 
           ! Error #25
196 
           errors(25) = .true.
197 
        endif
198 
 
199 
        itarg2(j,i) = -ipte2(j,i)
200 
        if (intne(ipte2(j,i), itarg2(j,i))) then
201 
           ! Error #26
202 
           errors(26) = .true.
203 
        endif
204 
 
205 
        rpte2(j,i) = i * (-2.0)
206 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
207 
           ! Error #27
208 
           errors(27) = .true.
209 
        endif
210 
 
211 
        rtarg2(j,i) = i * (-3.0)
212 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
213 
           ! Error #28
214 
           errors(28) = .true.
215 
        endif
216 
 
217 
        chpte2(j,i) = 'a'
218 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
219 
           ! Error #29
220 
           errors(29) = .true.
221 
        endif
222 
 
223 
        chtarg2(j,i) = 'z'
224 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
225 
           ! Error #30
226 
           errors(30) = .true.
227 
        endif
228 
 
229 
        ch8pte2(j,i) = 'aaaaaaaa'
230 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
231 
           ! Error #31
232 
           errors(31) = .true.
233 
        endif
234 
 
235 
        ch8targ2(j,i) = 'zzzzzzzz'
236 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
237 
           ! Error #32
238 
           errors(32) = .true.
239 
        endif
240 
        do k=1,o
241 
           dpte3(k,j,i)%i2(1+mod(i,5))=i
242 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
243 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
244 
              ! Error #33
245 
              errors(33) = .true.
246 
           endif
247 
 
248 
           dtarg3(k,j,i)%i2(1+mod(i,5))=2*dpte3(k,j,i)%i2(1+mod(i,5))
249 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
250 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
251 
              ! Error #34
252 
              errors(34) = .true.
253 
           endif
254 
 
255 
           ipte3(k,j,i) = i
256 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
257 
              ! Error #35
258 
              errors(35) = .true.
259 
           endif
260 
 
261 
           itarg3(k,j,i) = -ipte3(k,j,i)
262 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
263 
              ! Error #36
264 
              errors(36) = .true.
265 
           endif
266 
 
267 
           rpte3(k,j,i) = i * 2.0
268 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
269 
              ! Error #37
270 
              errors(37) = .true.
271 
           endif
272 
 
273 
           rtarg3(k,j,i) = i * 3.0
274 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
275 
              ! Error #38
276 
              errors(38) = .true.
277 
           endif
278 
 
279 
           chpte3(k,j,i) = 'a'
280 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
281 
              ! Error #39
282 
              errors(39) = .true.
283 
           endif
284 
 
285 
           chtarg3(k,j,i) = 'z'
286 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
287 
              ! Error #40
288 
              errors(40) = .true.
289 
           endif
290 
 
291 
           ch8pte3(k,j,i) = 'aaaaaaaa'
292 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
293 
              ! Error #41
294 
              errors(41) = .true.
295 
           endif
296 
 
297 
           ch8targ3(k,j,i) = 'zzzzzzzz'
298 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
299 
              ! Error #42
300 
              errors(42) = .true.
301 
           endif
302 
        end do
303 
     end do
304 
  end do
305 
 
306 
  rtarg3 = .5
307 
  ! Vector syntax
308 
  do, i=1,n
309 
     ipte3 = i
310 
     rpte3 = rpte3+1
311 
     do, j=1,m
312 
        do k=1,o
313 
           if (intne(itarg3(k,j,i), i)) then
314 
              ! Error #43
315 
              errors(43) = .true.
316 
           endif
317 
 
318 
           if (realne(rtarg3(k,j,i), i+.5)) then
319 
              ! Error #44
320 
              errors(44) = .true.
321 
           endif
322 
        end do
323 
     end do
324 
  end do
325 
 
326 
end subroutine ptr1
327 
 
328 
 
329 
subroutine ptr2
330 
  common /errors/errors(400)
331 
  logical :: errors, intne, realne, chne, ch8ne
332 
  integer :: i,j,k
333 
  integer, parameter :: n = 9
334 
  integer, parameter :: m = 10
335 
  integer, parameter :: o = 11
336 
  integer itarg1 (n)
337 
  integer itarg2 (m,n)
338 
  integer itarg3 (o,m,n)
339 
  real rtarg1(n)
340 
  real rtarg2(m,n)
341 
  real rtarg3(o,m,n)
342 
  character chtarg1(n)
343 
  character chtarg2(m,n)
344 
  character chtarg3(o,m,n)
345 
  character*8 ch8targ1(n)
346 
  character*8 ch8targ2(m,n)
347 
  character*8 ch8targ3(o,m,n)
348 
  type drvd
349 
     real r1
350 
     integer i1
351 
     integer i2(5)
352 
  end type drvd
353 
  type(drvd) dtarg1(n)
354 
  type(drvd) dtarg2(m,n)
355 
  type(drvd) dtarg3(o,m,n)
356 
 
357 
  type(drvd) dpte1
358 
  type(drvd) dpte2
359 
  type(drvd) dpte3
360 
  integer ipte1
361 
  integer ipte2
362 
  integer ipte3
363 
  real rpte1
364 
  real rpte2
365 
  real rpte3
366 
  character chpte1
367 
  character chpte2
368 
  character chpte3
369 
  character*8 ch8pte1
370 
  character*8 ch8pte2
371 
  character*8 ch8pte3
372 
 
373 
  pointer(iptr1,dpte1(n))
374 
  pointer(iptr2,dpte2(m,n))
375 
  pointer(iptr3,dpte3(o,m,n))
376 
  pointer(iptr4,ipte1(n))
377 
  pointer(iptr5,ipte2 (m,n))
378 
  pointer(iptr6,ipte3(o,m,n))
379 
  pointer(iptr7,rpte1(n))
380 
  pointer(iptr8,rpte2(m,n))
381 
  pointer(iptr9,rpte3(o,m,n))
382 
  pointer(iptr10,chpte1(n))
383 
  pointer(iptr11,chpte2(m,n))
384 
  pointer(iptr12,chpte3(o,m,n))
385 
  pointer(iptr13,ch8pte1(n))
386 
  pointer(iptr14,ch8pte2(m,n))
387 
  pointer(iptr15,ch8pte3(o,m,n))
388 
 
389 
  iptr1 = loc(dtarg1)
390 
  iptr2 = loc(dtarg2)
391 
  iptr3 = loc(dtarg3)
392 
  iptr4 = loc(itarg1)
393 
  iptr5 = loc(itarg2)
394 
  iptr6 = loc(itarg3)
395 
  iptr7 = loc(rtarg1)
396 
  iptr8 = loc(rtarg2)
397 
  iptr9 = loc(rtarg3)
398 
  iptr10= loc(chtarg1)
399 
  iptr11= loc(chtarg2)
400 
  iptr12= loc(chtarg3)
401 
  iptr13= loc(ch8targ1)
402 
  iptr14= loc(ch8targ2)
403 
  iptr15= loc(ch8targ3)
404 
 
405 
  do, i=1,n
406 
     dpte1(i)%i1=i
407 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
408 
        ! Error #45
409 
        errors(45) = .true.
410 
     endif
411 
 
412 
     dtarg1(i)%i1=2*dpte1(i)%i1
413 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
414 
        ! Error #46
415 
        errors(46) = .true.
416 
     endif
417 
 
418 
     ipte1(i) = i
419 
     if (intne(ipte1(i), itarg1(i))) then
420 
        ! Error #47
421 
        errors(47) = .true.
422 
     endif
423 
 
424 
     itarg1(i) = -ipte1(i)
425 
     if (intne(ipte1(i), itarg1(i))) then
426 
        ! Error #48
427 
        errors(48) = .true.
428 
     endif
429 
 
430 
     rpte1(i) = i * 5.0
431 
     if (realne(rpte1(i), rtarg1(i))) then
432 
        ! Error #49
433 
        errors(49) = .true.
434 
     endif
435 
 
436 
     rtarg1(i) = i * (-5.0)
437 
     if (realne(rpte1(i), rtarg1(i))) then
438 
        ! Error #50
439 
        errors(50) = .true.
440 
     endif
441 
 
442 
     chpte1(i) = 'a'
443 
     if (chne(chpte1(i), chtarg1(i))) then
444 
        ! Error #51
445 
        errors(51) = .true.
446 
     endif
447 
 
448 
     chtarg1(i) = 'z'
449 
     if (chne(chpte1(i), chtarg1(i))) then
450 
        ! Error #52
451 
        errors(52) = .true.
452 
     endif
453 
 
454 
     ch8pte1(i) = 'aaaaaaaa'
455 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
456 
        ! Error #53
457 
        errors(53) = .true.
458 
     endif
459 
 
460 
     ch8targ1(i) = 'zzzzzzzz'
461 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
462 
        ! Error #54
463 
        errors(54) = .true.
464 
     endif
465 
 
466 
     do, j=1,m
467 
        dpte2(j,i)%r1=1.0
468 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
469 
           ! Error #55
470 
           errors(55) = .true.
471 
        endif
472 
 
473 
        dtarg2(j,i)%r1=2*dpte2(j,i)%r1
474 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
475 
           ! Error #56
476 
           errors(56) = .true.
477 
        endif
478 
 
479 
        ipte2(j,i) = i
480 
        if (intne(ipte2(j,i), itarg2(j,i))) then
481 
           ! Error #57
482 
           errors(57) = .true.
483 
        endif
484 
 
485 
        itarg2(j,i) = -ipte2(j,i)
486 
        if (intne(ipte2(j,i), itarg2(j,i))) then
487 
           ! Error #58
488 
           errors(58) = .true.
489 
        endif
490 
 
491 
        rpte2(j,i) = i * (-2.0)
492 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
493 
           ! Error #59
494 
           errors(59) = .true.
495 
        endif
496 
 
497 
        rtarg2(j,i) = i * (-3.0)
498 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
499 
           ! Error #60
500 
           errors(60) = .true.
501 
        endif
502 
 
503 
        chpte2(j,i) = 'a'
504 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
505 
           ! Error #61
506 
           errors(61) = .true.
507 
        endif
508 
 
509 
        chtarg2(j,i) = 'z'
510 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
511 
           ! Error #62
512 
           errors(62) = .true.
513 
        endif
514 
 
515 
        ch8pte2(j,i) = 'aaaaaaaa'
516 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
517 
           ! Error #63
518 
           errors(63) = .true.
519 
        endif
520 
 
521 
        ch8targ2(j,i) = 'zzzzzzzz'
522 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
523 
           ! Error #64
524 
           errors(64) = .true.
525 
        endif
526 
        do k=1,o
527 
           dpte3(k,j,i)%i2(1+mod(i,5))=i
528 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), dtarg3(k,j,i)%i2(1+mod(i,5)))) then
529 
              ! Error #65
530 
              errors(65) = .true.
531 
           endif
532 
 
533 
           dtarg3(k,j,i)%i2(1+mod(i,5))=2*dpte3(k,j,i)%i2(1+mod(i,5))
534 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), dtarg3(k,j,i)%i2(1+mod(i,5)))) then
535 
              ! Error #66
536 
              errors(66) = .true.
537 
           endif
538 
 
539 
           ipte3(k,j,i) = i
540 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
541 
              ! Error #67
542 
              errors(67) = .true.
543 
           endif
544 
 
545 
           itarg3(k,j,i) = -ipte3(k,j,i)
546 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
547 
              ! Error #68
548 
              errors(68) = .true.
549 
           endif
550 
 
551 
           rpte3(k,j,i) = i * 2.0
552 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
553 
              ! Error #69
554 
              errors(69) = .true.
555 
           endif
556 
 
557 
           rtarg3(k,j,i) = i * 3.0
558 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
559 
              ! Error #70
560 
              errors(70) = .true.
561 
           endif
562 
 
563 
           chpte3(k,j,i) = 'a'
564 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
565 
              ! Error #71
566 
              errors(71) = .true.
567 
           endif
568 
 
569 
           chtarg3(k,j,i) = 'z'
570 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
571 
              ! Error #72
572 
              errors(72) = .true.
573 
           endif
574 
 
575 
           ch8pte3(k,j,i) = 'aaaaaaaa'
576 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
577 
              ! Error #73
578 
              errors(73) = .true.
579 
           endif
580 
 
581 
           ch8targ3(k,j,i) = 'zzzzzzzz'
582 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
583 
              ! Error #74
584 
              errors(74) = .true.
585 
           endif
586 
        end do
587 
     end do
588 
  end do
589 
 
590 
  rtarg3 = .5
591 
  ! Vector syntax
592 
  do, i=1,n
593 
     ipte3 = i
594 
     rpte3 = rpte3+1
595 
     do, j=1,m
596 
        do k=1,o
597 
           if (intne(itarg3(k,j,i), i)) then
598 
              ! Error #75
599 
              errors(75) = .true.
600 
           endif
601 
 
602 
           if (realne(rtarg3(k,j,i), i+.5)) then
603 
              ! Error #76
604 
              errors(76) = .true.
605 
           endif
606 
        end do
607 
     end do
608 
  end do
609 
end subroutine ptr2
610 
 
611 
subroutine ptr3
612 
  common /errors/errors(400)
613 
  logical :: errors, intne, realne, chne, ch8ne
614 
  integer :: i,j,k
615 
  integer, parameter :: n = 9
616 
  integer, parameter :: m = 10
617 
  integer, parameter :: o = 11
618 
  integer itarg1 (n)
619 
  integer itarg2 (m,n)
620 
  integer itarg3 (o,m,n)
621 
  real rtarg1(n)
622 
  real rtarg2(m,n)
623 
  real rtarg3(o,m,n)
624 
  character chtarg1(n)
625 
  character chtarg2(m,n)
626 
  character chtarg3(o,m,n)
627 
  character*8 ch8targ1(n)
628 
  character*8 ch8targ2(m,n)
629 
  character*8 ch8targ3(o,m,n)
630 
  type drvd
631 
     real r1
632 
     integer i1
633 
     integer i2(5)
634 
  end type drvd
635 
  type(drvd) dtarg1(n)
636 
  type(drvd) dtarg2(m,n)
637 
  type(drvd) dtarg3(o,m,n)
638 
 
639 
  pointer(iptr1,dpte1(n))
640 
  pointer(iptr2,dpte2(m,n))
641 
  pointer(iptr3,dpte3(o,m,n))
642 
  pointer(iptr4,ipte1(n))
643 
  pointer(iptr5,ipte2 (m,n))
644 
  pointer(iptr6,ipte3(o,m,n))
645 
  pointer(iptr7,rpte1(n))
646 
  pointer(iptr8,rpte2(m,n))
647 
  pointer(iptr9,rpte3(o,m,n))
648 
  pointer(iptr10,chpte1(n))
649 
  pointer(iptr11,chpte2(m,n))
650 
  pointer(iptr12,chpte3(o,m,n))
651 
  pointer(iptr13,ch8pte1(n))
652 
  pointer(iptr14,ch8pte2(m,n))
653 
  pointer(iptr15,ch8pte3(o,m,n))
654 
 
655 
  type(drvd) dpte1
656 
  type(drvd) dpte2
657 
  type(drvd) dpte3
658 
  integer ipte1
659 
  integer ipte2
660 
  integer ipte3
661 
  real rpte1
662 
  real rpte2
663 
  real rpte3
664 
  character chpte1
665 
  character chpte2
666 
  character chpte3
667 
  character*8 ch8pte1
668 
  character*8 ch8pte2
669 
  character*8 ch8pte3
670 
 
671 
  iptr1 = loc(dtarg1)
672 
  iptr2 = loc(dtarg2)
673 
  iptr3 = loc(dtarg3)
674 
  iptr4 = loc(itarg1)
675 
  iptr5 = loc(itarg2)
676 
  iptr6 = loc(itarg3)
677 
  iptr7 = loc(rtarg1)
678 
  iptr8 = loc(rtarg2)
679 
  iptr9 = loc(rtarg3)
680 
  iptr10= loc(chtarg1)
681 
  iptr11= loc(chtarg2)
682 
  iptr12= loc(chtarg3)
683 
  iptr13= loc(ch8targ1)
684 
  iptr14= loc(ch8targ2)
685 
  iptr15= loc(ch8targ3)
686 
 
687 
  do, i=1,n
688 
     dpte1(i)%i1=i
689 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
690 
        ! Error #77
691 
        errors(77) = .true.
692 
     endif
693 
 
694 
     dtarg1(i)%i1=2*dpte1(i)%i1
695 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
696 
        ! Error #78
697 
        errors(78) = .true.
698 
     endif
699 
 
700 
     ipte1(i) = i
701 
     if (intne(ipte1(i), itarg1(i))) then
702 
        ! Error #79
703 
        errors(79) = .true.
704 
     endif
705 
 
706 
     itarg1(i) = -ipte1(i)
707 
     if (intne(ipte1(i), itarg1(i))) then
708 
        ! Error #80
709 
        errors(80) = .true.
710 
     endif
711 
 
712 
     rpte1(i) = i * 5.0
713 
     if (realne(rpte1(i), rtarg1(i))) then
714 
        ! Error #81
715 
        errors(81) = .true.
716 
     endif
717 
 
718 
     rtarg1(i) = i * (-5.0)
719 
     if (realne(rpte1(i), rtarg1(i))) then
720 
        ! Error #82
721 
        errors(82) = .true.
722 
     endif
723 
 
724 
     chpte1(i) = 'a'
725 
     if (chne(chpte1(i), chtarg1(i))) then
726 
        ! Error #83
727 
        errors(83) = .true.
728 
     endif
729 
 
730 
     chtarg1(i) = 'z'
731 
     if (chne(chpte1(i), chtarg1(i))) then
732 
        ! Error #84
733 
        errors(84) = .true.
734 
     endif
735 
 
736 
     ch8pte1(i) = 'aaaaaaaa'
737 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
738 
        ! Error #85
739 
        errors(85) = .true.
740 
     endif
741 
 
742 
     ch8targ1(i) = 'zzzzzzzz'
743 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
744 
        ! Error #86
745 
        errors(86) = .true.
746 
     endif
747 
 
748 
     do, j=1,m
749 
        dpte2(j,i)%r1=1.0
750 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
751 
           ! Error #87
752 
           errors(87) = .true.
753 
        endif
754 
 
755 
        dtarg2(j,i)%r1=2*dpte2(j,i)%r1
756 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
757 
           ! Error #88
758 
           errors(88) = .true.
759 
        endif
760 
 
761 
        ipte2(j,i) = i
762 
        if (intne(ipte2(j,i), itarg2(j,i))) then
763 
           ! Error #89
764 
           errors(89) = .true.
765 
        endif
766 
 
767 
        itarg2(j,i) = -ipte2(j,i)
768 
        if (intne(ipte2(j,i), itarg2(j,i))) then
769 
           ! Error #90
770 
           errors(90) = .true.
771 
        endif
772 
 
773 
        rpte2(j,i) = i * (-2.0)
774 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
775 
           ! Error #91
776 
           errors(91) = .true.
777 
        endif
778 
 
779 
        rtarg2(j,i) = i * (-3.0)
780 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
781 
           ! Error #92
782 
           errors(92) = .true.
783 
        endif
784 
 
785 
        chpte2(j,i) = 'a'
786 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
787 
           ! Error #93
788 
           errors(93) = .true.
789 
        endif
790 
 
791 
        chtarg2(j,i) = 'z'
792 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
793 
           ! Error #94
794 
           errors(94) = .true.
795 
        endif
796 
 
797 
        ch8pte2(j,i) = 'aaaaaaaa'
798 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
799 
           ! Error #95
800 
           errors(95) = .true.
801 
        endif
802 
 
803 
        ch8targ2(j,i) = 'zzzzzzzz'
804 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
805 
           ! Error #96
806 
           errors(96) = .true.
807 
        endif
808 
        do k=1,o
809 
           dpte3(k,j,i)%i2(1+mod(i,5))=i
810 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
811 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
812 
              ! Error #97
813 
              errors(97) = .true.
814 
           endif
815 
 
816 
           dtarg3(k,j,i)%i2(1+mod(i,5))=2*dpte3(k,j,i)%i2(1+mod(i,5))
817 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
818 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
819 
              ! Error #98
820 
              errors(98) = .true.
821 
           endif
822 
 
823 
           ipte3(k,j,i) = i
824 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
825 
              ! Error #99
826 
              errors(99) = .true.
827 
           endif
828 
 
829 
           itarg3(k,j,i) = -ipte3(k,j,i)
830 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
831 
              ! Error #100
832 
              errors(100) = .true.
833 
           endif
834 
 
835 
           rpte3(k,j,i) = i * 2.0
836 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
837 
              ! Error #101
838 
              errors(101) = .true.
839 
           endif
840 
 
841 
           rtarg3(k,j,i) = i * 3.0
842 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
843 
              ! Error #102
844 
              errors(102) = .true.
845 
           endif
846 
 
847 
           chpte3(k,j,i) = 'a'
848 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
849 
              ! Error #103
850 
              errors(103) = .true.
851 
           endif
852 
 
853 
           chtarg3(k,j,i) = 'z'
854 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
855 
              ! Error #104
856 
              errors(104) = .true.
857 
           endif
858 
 
859 
           ch8pte3(k,j,i) = 'aaaaaaaa'
860 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
861 
              ! Error #105
862 
              errors(105) = .true.
863 
           endif
864 
 
865 
           ch8targ3(k,j,i) = 'zzzzzzzz'
866 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
867 
              ! Error #106
868 
              errors(106) = .true.
869 
           endif
870 
        end do
871 
     end do
872 
  end do
873 
 
874 
  rtarg3 = .5
875 
  ! Vector syntax
876 
  do, i=1,n
877 
     ipte3 = i
878 
     rpte3 = rpte3+1
879 
     do, j=1,m
880 
        do k=1,o
881 
           if (intne(itarg3(k,j,i), i)) then
882 
              ! Error #107
883 
              errors(107) = .true.
884 
           endif
885 
 
886 
           if (realne(rtarg3(k,j,i), i+.5)) then
887 
              ! Error #108
888 
              errors(108) = .true.
889 
           endif
890 
        end do
891 
     end do
892 
  end do
893 
end subroutine ptr3
894 
 
895 
subroutine ptr4
896 
  common /errors/errors(400)
897 
  logical :: errors, intne, realne, chne, ch8ne
898 
  integer :: i,j,k
899 
  integer, parameter :: n = 9
900 
  integer, parameter :: m = 10
901 
  integer, parameter :: o = 11
902 
  integer itarg1 (n)
903 
  integer itarg2 (m,n)
904 
  integer itarg3 (o,m,n)
905 
  real rtarg1(n)
906 
  real rtarg2(m,n)
907 
  real rtarg3(o,m,n)
908 
  character chtarg1(n)
909 
  character chtarg2(m,n)
910 
  character chtarg3(o,m,n)
911 
  character*8 ch8targ1(n)
912 
  character*8 ch8targ2(m,n)
913 
  character*8 ch8targ3(o,m,n)
914 
  type drvd
915 
     real r1
916 
     integer i1
917 
     integer i2(5)
918 
  end type drvd
919 
  type(drvd) dtarg1(n)
920 
  type(drvd) dtarg2(m,n)
921 
  type(drvd) dtarg3(o,m,n)
922 
 
923 
  pointer(iptr1,dpte1),(iptr2,dpte2),(iptr3,dpte3)
924 
  pointer    (iptr4,ipte1),  (iptr5,ipte2) ,(iptr6,ipte3),(iptr7,rpte1)
925 
  pointer(iptr8,rpte2)
926 
  pointer(iptr9,rpte3),(iptr10,chpte1)
927 
  pointer(iptr11,chpte2),(iptr12,chpte3),(iptr13,ch8pte1)
928 
  pointer(iptr14,ch8pte2)
929 
  pointer(iptr15,ch8pte3)
930 
 
931 
  type(drvd) dpte1(n)
932 
  type(drvd) dpte2(m,n)
933 
  type(drvd) dpte3(o,m,n)
934 
  integer ipte1 (n)
935 
  integer ipte2 (m,n)
936 
  integer ipte3 (o,m,n)
937 
  real rpte1(n)
938 
  real rpte2(m,n)
939 
  real rpte3(o,m,n)
940 
  character chpte1(n)
941 
  character chpte2(m,n)
942 
  character chpte3(o,m,n)
943 
  character*8 ch8pte1(n)
944 
  character*8 ch8pte2(m,n)
945 
  character*8 ch8pte3(o,m,n)
946 
 
947 
  iptr1 = loc(dtarg1)
948 
  iptr2 = loc(dtarg2)
949 
  iptr3 = loc(dtarg3)
950 
  iptr4 = loc(itarg1)
951 
  iptr5 = loc(itarg2)
952 
  iptr6 = loc(itarg3)
953 
  iptr7 = loc(rtarg1)
954 
  iptr8 = loc(rtarg2)
955 
  iptr9 = loc(rtarg3)
956 
  iptr10= loc(chtarg1)
957 
  iptr11= loc(chtarg2)
958 
  iptr12= loc(chtarg3)
959 
  iptr13= loc(ch8targ1)
960 
  iptr14= loc(ch8targ2)
961 
  iptr15= loc(ch8targ3)
962 
 
963 
 
964 
  do, i=1,n
965 
     dpte1(i)%i1=i
966 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
967 
        ! Error #109
968 
        errors(109) = .true.
969 
     endif
970 
 
971 
     dtarg1(i)%i1=2*dpte1(i)%i1
972 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
973 
        ! Error #110
974 
        errors(110) = .true.
975 
     endif
976 
 
977 
     ipte1(i) = i
978 
     if (intne(ipte1(i), itarg1(i))) then
979 
        ! Error #111
980 
        errors(111) = .true.
981 
     endif
982 
 
983 
     itarg1(i) = -ipte1(i)
984 
     if (intne(ipte1(i), itarg1(i))) then
985 
        ! Error #112
986 
        errors(112) = .true.
987 
     endif
988 
 
989 
     rpte1(i) = i * 5.0
990 
     if (realne(rpte1(i), rtarg1(i))) then
991 
        ! Error #113
992 
        errors(113) = .true.
993 
     endif
994 
 
995 
     rtarg1(i) = i * (-5.0)
996 
     if (realne(rpte1(i), rtarg1(i))) then
997 
        ! Error #114
998 
        errors(114) = .true.
999 
     endif
1000 
 
1001 
     chpte1(i) = 'a'
1002 
     if (chne(chpte1(i), chtarg1(i))) then
1003 
        ! Error #115
1004 
        errors(115) = .true.
1005 
     endif
1006 
 
1007 
     chtarg1(i) = 'z'
1008 
     if (chne(chpte1(i), chtarg1(i))) then
1009 
        ! Error #116
1010 
        errors(116) = .true.
1011 
     endif
1012 
 
1013 
     ch8pte1(i) = 'aaaaaaaa'
1014 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
1015 
        ! Error #117
1016 
        errors(117) = .true.
1017 
     endif
1018 
 
1019 
     ch8targ1(i) = 'zzzzzzzz'
1020 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
1021 
        ! Error #118
1022 
        errors(118) = .true.
1023 
     endif
1024 
 
1025 
     do, j=1,m
1026 
        dpte2(j,i)%r1=1.0
1027 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
1028 
           ! Error #119
1029 
           errors(119) = .true.
1030 
        endif
1031 
 
1032 
        dtarg2(j,i)%r1=2*dpte2(j,i)%r1
1033 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
1034 
           ! Error #120
1035 
           errors(120) = .true.
1036 
        endif
1037 
 
1038 
        ipte2(j,i) = i
1039 
        if (intne(ipte2(j,i), itarg2(j,i))) then
1040 
           ! Error #121
1041 
           errors(121) = .true.
1042 
        endif
1043 
 
1044 
        itarg2(j,i) = -ipte2(j,i)
1045 
        if (intne(ipte2(j,i), itarg2(j,i))) then
1046 
           ! Error #122
1047 
           errors(122) = .true.
1048 
        endif
1049 
 
1050 
        rpte2(j,i) = i * (-2.0)
1051 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
1052 
           ! Error #123
1053 
           errors(123) = .true.
1054 
        endif
1055 
 
1056 
        rtarg2(j,i) = i * (-3.0)
1057 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
1058 
           ! Error #124
1059 
           errors(124) = .true.
1060 
        endif
1061 
 
1062 
        chpte2(j,i) = 'a'
1063 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
1064 
           ! Error #125
1065 
           errors(125) = .true.
1066 
        endif
1067 
 
1068 
        chtarg2(j,i) = 'z'
1069 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
1070 
           ! Error #126
1071 
           errors(126) = .true.
1072 
        endif
1073 
 
1074 
        ch8pte2(j,i) = 'aaaaaaaa'
1075 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
1076 
           ! Error #127
1077 
           errors(127) = .true.
1078 
        endif
1079 
 
1080 
        ch8targ2(j,i) = 'zzzzzzzz'
1081 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
1082 
           ! Error #128
1083 
           errors(128) = .true.
1084 
        endif
1085 
        do k=1,o
1086 
           dpte3(k,j,i)%i2(1+mod(i,5))=i
1087 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
1088 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
1089 
              ! Error #129
1090 
              errors(129) = .true.
1091 
           endif
1092 
 
1093 
           dtarg3(k,j,i)%i2(1+mod(i,5))=2*dpte3(k,j,i)%i2(1+mod(i,5))
1094 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
1095 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
1096 
              ! Error #130
1097 
              errors(130) = .true.
1098 
           endif
1099 
 
1100 
           ipte3(k,j,i) = i
1101 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
1102 
              ! Error #131
1103 
              errors(131) = .true.
1104 
           endif
1105 
 
1106 
           itarg3(k,j,i) = -ipte3(k,j,i)
1107 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
1108 
              ! Error #132
1109 
              errors(132) = .true.
1110 
           endif
1111 
 
1112 
           rpte3(k,j,i) = i * 2.0
1113 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
1114 
              ! Error #133
1115 
              errors(133) = .true.
1116 
           endif
1117 
 
1118 
           rtarg3(k,j,i) = i * 3.0
1119 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
1120 
              ! Error #134
1121 
              errors(134) = .true.
1122 
           endif
1123 
 
1124 
           chpte3(k,j,i) = 'a'
1125 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
1126 
              ! Error #135
1127 
              errors(135) = .true.
1128 
           endif
1129 
 
1130 
           chtarg3(k,j,i) = 'z'
1131 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
1132 
              ! Error #136
1133 
              errors(136) = .true.
1134 
           endif
1135 
 
1136 
           ch8pte3(k,j,i) = 'aaaaaaaa'
1137 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
1138 
              ! Error #137
1139 
              errors(137) = .true.
1140 
           endif
1141 
 
1142 
           ch8targ3(k,j,i) = 'zzzzzzzz'
1143 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
1144 
              ! Error #138
1145 
              errors(138) = .true.
1146 
           endif
1147 
        end do
1148 
     end do
1149 
  end do
1150 
 
1151 
  rtarg3 = .5
1152 
  ! Vector syntax
1153 
  do, i=1,n
1154 
     ipte3 = i
1155 
     rpte3 = rpte3+1
1156 
     do, j=1,m
1157 
        do k=1,o
1158 
           if (intne(itarg3(k,j,i), i)) then
1159 
              ! Error #139
1160 
              errors(139) = .true.
1161 
           endif
1162 
 
1163 
           if (realne(rtarg3(k,j,i), i+.5)) then
1164 
              ! Error #140
1165 
              errors(140) = .true.
1166 
           endif
1167 
        end do
1168 
     end do
1169 
  end do
1170 
 
1171 
end subroutine ptr4
1172 
 
1173 
subroutine ptr5
1174 
  common /errors/errors(400)
1175 
  logical :: errors, intne, realne, chne, ch8ne
1176 
  integer :: i,j,k
1177 
  integer, parameter :: n = 9
1178 
  integer, parameter :: m = 10
1179 
  integer, parameter :: o = 11
1180 
  integer itarg1 (n)
1181 
  integer itarg2 (m,n)
1182 
  integer itarg3 (o,m,n)
1183 
  real rtarg1(n)
1184 
  real rtarg2(m,n)
1185 
  real rtarg3(o,m,n)
1186 
  character chtarg1(n)
1187 
  character chtarg2(m,n)
1188 
  character chtarg3(o,m,n)
1189 
  character*8 ch8targ1(n)
1190 
  character*8 ch8targ2(m,n)
1191 
  character*8 ch8targ3(o,m,n)
1192 
  type drvd
1193 
     real r1
1194 
     integer i1
1195 
     integer i2(5)
1196 
  end type drvd
1197 
  type(drvd) dtarg1(n)
1198 
  type(drvd) dtarg2(m,n)
1199 
  type(drvd) dtarg3(o,m,n)
1200 
 
1201 
  type(drvd) dpte1(*)
1202 
  type(drvd) dpte2(m,*)
1203 
  type(drvd) dpte3(o,m,*)
1204 
  integer ipte1 (*)
1205 
  integer ipte2 (m,*)
1206 
  integer ipte3 (o,m,*)
1207 
  real rpte1(*)
1208 
  real rpte2(m,*)
1209 
  real rpte3(o,m,*)
1210 
  character chpte1(*)
1211 
  character chpte2(m,*)
1212 
  character chpte3(o,m,*)
1213 
  character*8 ch8pte1(*)
1214 
  character*8 ch8pte2(m,*)
1215 
  character*8 ch8pte3(o,m,*)
1216 
 
1217 
  pointer(iptr1,dpte1)
1218 
  pointer(iptr2,dpte2)
1219 
  pointer(iptr3,dpte3)
1220 
  pointer(iptr4,ipte1)
1221 
  pointer(iptr5,ipte2)
1222 
  pointer(iptr6,ipte3)
1223 
  pointer(iptr7,rpte1)
1224 
  pointer(iptr8,rpte2)
1225 
  pointer(iptr9,rpte3)
1226 
  pointer(iptr10,chpte1)
1227 
  pointer(iptr11,chpte2)
1228 
  pointer(iptr12,chpte3)
1229 
  pointer(iptr13,ch8pte1)
1230 
  pointer(iptr14,ch8pte2)
1231 
  pointer(iptr15,ch8pte3)
1232 
 
1233 
  iptr1 = loc(dtarg1)
1234 
  iptr2 = loc(dtarg2)
1235 
  iptr3 = loc(dtarg3)
1236 
  iptr4 = loc(itarg1)
1237 
  iptr5 = loc(itarg2)
1238 
  iptr6 = loc(itarg3)
1239 
  iptr7 = loc(rtarg1)
1240 
  iptr8 = loc(rtarg2)
1241 
  iptr9 = loc(rtarg3)
1242 
  iptr10= loc(chtarg1)
1243 
  iptr11= loc(chtarg2)
1244 
  iptr12= loc(chtarg3)
1245 
  iptr13= loc(ch8targ1)
1246 
  iptr14= loc(ch8targ2)
1247 
  iptr15= loc(ch8targ3)
1248 
 
1249 
 
1250 
  do, i=1,n
1251 
     dpte1(i)%i1=i
1252 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
1253 
        ! Error #141
1254 
        errors(141) = .true.
1255 
     endif
1256 
 
1257 
     dtarg1(i)%i1=2*dpte1(i)%i1
1258 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
1259 
        ! Error #142
1260 
        errors(142) = .true.
1261 
     endif
1262 
 
1263 
     ipte1(i) = i
1264 
     if (intne(ipte1(i), itarg1(i))) then
1265 
        ! Error #143
1266 
        errors(143) = .true.
1267 
     endif
1268 
 
1269 
     itarg1(i) = -ipte1(i)
1270 
     if (intne(ipte1(i), itarg1(i))) then
1271 
        ! Error #144
1272 
        errors(144) = .true.
1273 
     endif
1274 
 
1275 
     rpte1(i) = i * 5.0
1276 
     if (realne(rpte1(i), rtarg1(i))) then
1277 
        ! Error #145
1278 
        errors(145) = .true.
1279 
     endif
1280 
 
1281 
     rtarg1(i) = i * (-5.0)
1282 
     if (realne(rpte1(i), rtarg1(i))) then
1283 
        ! Error #146
1284 
        errors(146) = .true.
1285 
     endif
1286 
 
1287 
     chpte1(i) = 'a'
1288 
     if (chne(chpte1(i), chtarg1(i))) then
1289 
        ! Error #147
1290 
        errors(147) = .true.
1291 
     endif
1292 
 
1293 
     chtarg1(i) = 'z'
1294 
     if (chne(chpte1(i), chtarg1(i))) then
1295 
        ! Error #148
1296 
        errors(148) = .true.
1297 
     endif
1298 
 
1299 
     ch8pte1(i) = 'aaaaaaaa'
1300 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
1301 
        ! Error #149
1302 
        errors(149) = .true.
1303 
     endif
1304 
 
1305 
     ch8targ1(i) = 'zzzzzzzz'
1306 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
1307 
        ! Error #150
1308 
        errors(150) = .true.
1309 
     endif
1310 
 
1311 
     do, j=1,m
1312 
        dpte2(j,i)%r1=1.0
1313 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
1314 
           ! Error #151
1315 
           errors(151) = .true.
1316 
        endif
1317 
 
1318 
        dtarg2(j,i)%r1=2*dpte2(j,i)%r1
1319 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
1320 
           ! Error #152
1321 
           errors(152) = .true.
1322 
        endif
1323 
 
1324 
        ipte2(j,i) = i
1325 
        if (intne(ipte2(j,i), itarg2(j,i))) then
1326 
           ! Error #153
1327 
           errors(153) = .true.
1328 
        endif
1329 
 
1330 
        itarg2(j,i) = -ipte2(j,i)
1331 
        if (intne(ipte2(j,i), itarg2(j,i))) then
1332 
           ! Error #154
1333 
           errors(154) = .true.
1334 
        endif
1335 
 
1336 
        rpte2(j,i) = i * (-2.0)
1337 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
1338 
           ! Error #155
1339 
           errors(155) = .true.
1340 
        endif
1341 
 
1342 
        rtarg2(j,i) = i * (-3.0)
1343 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
1344 
           ! Error #156
1345 
           errors(156) = .true.
1346 
        endif
1347 
 
1348 
        chpte2(j,i) = 'a'
1349 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
1350 
           ! Error #157
1351 
           errors(157) = .true.
1352 
        endif
1353 
 
1354 
        chtarg2(j,i) = 'z'
1355 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
1356 
           ! Error #158
1357 
           errors(158) = .true.
1358 
        endif
1359 
 
1360 
        ch8pte2(j,i) = 'aaaaaaaa'
1361 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
1362 
           ! Error #159
1363 
           errors(159) = .true.
1364 
        endif
1365 
 
1366 
        ch8targ2(j,i) = 'zzzzzzzz'
1367 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
1368 
           ! Error #160
1369 
           errors(160) = .true.
1370 
        endif
1371 
        do k=1,o
1372 
           dpte3(k,j,i)%i2(1+mod(i,5))=i
1373 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
1374 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
1375 
              ! Error #161
1376 
              errors(161) = .true.
1377 
           endif
1378 
 
1379 
           dtarg3(k,j,i)%i2(1+mod(i,5))=2*dpte3(k,j,i)%i2(1+mod(i,5))
1380 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
1381 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
1382 
              ! Error #162
1383 
              errors(162) = .true.
1384 
           endif
1385 
 
1386 
           ipte3(k,j,i) = i
1387 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
1388 
              ! Error #163
1389 
              errors(163) = .true.
1390 
           endif
1391 
 
1392 
           itarg3(k,j,i) = -ipte3(k,j,i)
1393 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
1394 
              ! Error #164
1395 
              errors(164) = .true.
1396 
           endif
1397 
 
1398 
           rpte3(k,j,i) = i * 2.0
1399 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
1400 
              ! Error #165
1401 
              errors(165) = .true.
1402 
           endif
1403 
 
1404 
           rtarg3(k,j,i) = i * 3.0
1405 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
1406 
              ! Error #166
1407 
              errors(166) = .true.
1408 
           endif
1409 
 
1410 
           chpte3(k,j,i) = 'a'
1411 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
1412 
              ! Error #167
1413 
              errors(167) = .true.
1414 
           endif
1415 
 
1416 
           chtarg3(k,j,i) = 'z'
1417 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
1418 
              ! Error #168
1419 
              errors(168) = .true.
1420 
           endif
1421 
 
1422 
           ch8pte3(k,j,i) = 'aaaaaaaa'
1423 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
1424 
              ! Error #169
1425 
              errors(169) = .true.
1426 
           endif
1427 
 
1428 
           ch8targ3(k,j,i) = 'zzzzzzzz'
1429 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
1430 
              ! Error #170
1431 
              errors(170) = .true.
1432 
           endif
1433 
        end do
1434 
     end do
1435 
  end do
1436 
 
1437 
end subroutine ptr5
1438 
 
1439 
 
1440 
subroutine ptr6
1441 
  common /errors/errors(400)
1442 
  logical :: errors, intne, realne, chne, ch8ne
1443 
  integer :: i,j,k
1444 
  integer, parameter :: n = 9
1445 
  integer, parameter :: m = 10
1446 
  integer, parameter :: o = 11
1447 
  integer itarg1 (n)
1448 
  integer itarg2 (m,n)
1449 
  integer itarg3 (o,m,n)
1450 
  real rtarg1(n)
1451 
  real rtarg2(m,n)
1452 
  real rtarg3(o,m,n)
1453 
  character chtarg1(n)
1454 
  character chtarg2(m,n)
1455 
  character chtarg3(o,m,n)
1456 
  character*8 ch8targ1(n)
1457 
  character*8 ch8targ2(m,n)
1458 
  character*8 ch8targ3(o,m,n)
1459 
  type drvd
1460 
     real r1
1461 
     integer i1
1462 
     integer i2(5)
1463 
  end type drvd
1464 
  type(drvd) dtarg1(n)
1465 
  type(drvd) dtarg2(m,n)
1466 
  type(drvd) dtarg3(o,m,n)
1467 
 
1468 
  type(drvd) dpte1
1469 
  type(drvd) dpte2
1470 
  type(drvd) dpte3
1471 
  integer ipte1
1472 
  integer ipte2
1473 
  integer ipte3
1474 
  real rpte1
1475 
  real rpte2
1476 
  real rpte3
1477 
  character chpte1
1478 
  character chpte2
1479 
  character chpte3
1480 
  character*8 ch8pte1
1481 
  character*8 ch8pte2
1482 
  character*8 ch8pte3
1483 
 
1484 
  pointer(iptr1,dpte1(*))
1485 
  pointer(iptr2,dpte2(m,*))
1486 
  pointer(iptr3,dpte3(o,m,*))
1487 
  pointer(iptr4,ipte1(*))
1488 
  pointer(iptr5,ipte2 (m,*))
1489 
  pointer(iptr6,ipte3(o,m,*))
1490 
  pointer(iptr7,rpte1(*))
1491 
  pointer(iptr8,rpte2(m,*))
1492 
  pointer(iptr9,rpte3(o,m,*))
1493 
  pointer(iptr10,chpte1(*))
1494 
  pointer(iptr11,chpte2(m,*))
1495 
  pointer(iptr12,chpte3(o,m,*))
1496 
  pointer(iptr13,ch8pte1(*))
1497 
  pointer(iptr14,ch8pte2(m,*))
1498 
  pointer(iptr15,ch8pte3(o,m,*))
1499 
 
1500 
  iptr1 = loc(dtarg1)
1501 
  iptr2 = loc(dtarg2)
1502 
  iptr3 = loc(dtarg3)
1503 
  iptr4 = loc(itarg1)
1504 
  iptr5 = loc(itarg2)
1505 
  iptr6 = loc(itarg3)
1506 
  iptr7 = loc(rtarg1)
1507 
  iptr8 = loc(rtarg2)
1508 
  iptr9 = loc(rtarg3)
1509 
  iptr10= loc(chtarg1)
1510 
  iptr11= loc(chtarg2)
1511 
  iptr12= loc(chtarg3)
1512 
  iptr13= loc(ch8targ1)
1513 
  iptr14= loc(ch8targ2)
1514 
  iptr15= loc(ch8targ3)
1515 
 
1516 
  do, i=1,n
1517 
     dpte1(i)%i1=i
1518 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
1519 
        ! Error #171
1520 
        errors(171) = .true.
1521 
     endif
1522 
 
1523 
     dtarg1(i)%i1=2*dpte1(i)%i1
1524 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
1525 
        ! Error #172
1526 
        errors(172) = .true.
1527 
     endif
1528 
 
1529 
     ipte1(i) = i
1530 
     if (intne(ipte1(i), itarg1(i))) then
1531 
        ! Error #173
1532 
        errors(173) = .true.
1533 
     endif
1534 
 
1535 
     itarg1(i) = -ipte1(i)
1536 
     if (intne(ipte1(i), itarg1(i))) then
1537 
        ! Error #174
1538 
        errors(174) = .true.
1539 
     endif
1540 
 
1541 
     rpte1(i) = i * 5.0
1542 
     if (realne(rpte1(i), rtarg1(i))) then
1543 
        ! Error #175
1544 
        errors(175) = .true.
1545 
     endif
1546 
 
1547 
     rtarg1(i) = i * (-5.0)
1548 
     if (realne(rpte1(i), rtarg1(i))) then
1549 
        ! Error #176
1550 
        errors(176) = .true.
1551 
     endif
1552 
 
1553 
     chpte1(i) = 'a'
1554 
     if (chne(chpte1(i), chtarg1(i))) then
1555 
        ! Error #177
1556 
        errors(177) = .true.
1557 
     endif
1558 
 
1559 
     chtarg1(i) = 'z'
1560 
     if (chne(chpte1(i), chtarg1(i))) then
1561 
        ! Error #178
1562 
        errors(178) = .true.
1563 
     endif
1564 
 
1565 
     ch8pte1(i) = 'aaaaaaaa'
1566 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
1567 
        ! Error #179
1568 
        errors(179) = .true.
1569 
     endif
1570 
 
1571 
     ch8targ1(i) = 'zzzzzzzz'
1572 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
1573 
        ! Error #180
1574 
        errors(180) = .true.
1575 
     endif
1576 
 
1577 
     do, j=1,m
1578 
        dpte2(j,i)%r1=1.0
1579 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
1580 
           ! Error #181
1581 
           errors(181) = .true.
1582 
        endif
1583 
 
1584 
        dtarg2(j,i)%r1=2*dpte2(j,i)%r1
1585 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
1586 
           ! Error #182
1587 
           errors(182) = .true.
1588 
        endif
1589 
 
1590 
        ipte2(j,i) = i
1591 
        if (intne(ipte2(j,i), itarg2(j,i))) then
1592 
           ! Error #183
1593 
           errors(183) = .true.
1594 
        endif
1595 
 
1596 
        itarg2(j,i) = -ipte2(j,i)
1597 
        if (intne(ipte2(j,i), itarg2(j,i))) then
1598 
           ! Error #184
1599 
           errors(184) = .true.
1600 
        endif
1601 
 
1602 
        rpte2(j,i) = i * (-2.0)
1603 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
1604 
           ! Error #185
1605 
           errors(185) = .true.
1606 
        endif
1607 
 
1608 
        rtarg2(j,i) = i * (-3.0)
1609 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
1610 
           ! Error #186
1611 
           errors(186) = .true.
1612 
        endif
1613 
 
1614 
        chpte2(j,i) = 'a'
1615 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
1616 
           ! Error #187
1617 
           errors(187) = .true.
1618 
        endif
1619 
 
1620 
        chtarg2(j,i) = 'z'
1621 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
1622 
           ! Error #188
1623 
           errors(188) = .true.
1624 
        endif
1625 
 
1626 
        ch8pte2(j,i) = 'aaaaaaaa'
1627 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
1628 
           ! Error #189
1629 
           errors(189) = .true.
1630 
        endif
1631 
 
1632 
        ch8targ2(j,i) = 'zzzzzzzz'
1633 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
1634 
           ! Error #190
1635 
           errors(190) = .true.
1636 
        endif
1637 
        do k=1,o
1638 
           dpte3(k,j,i)%i2(1+mod(i,5))=i
1639 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
1640 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
1641 
              ! Error #191
1642 
              errors(191) = .true.
1643 
           endif
1644 
 
1645 
           dtarg3(k,j,i)%i2(1+mod(i,5))=2*dpte3(k,j,i)%i2(1+mod(i,5))
1646 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
1647 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
1648 
              ! Error #192
1649 
              errors(192) = .true.
1650 
           endif
1651 
 
1652 
           ipte3(k,j,i) = i
1653 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
1654 
              ! Error #193
1655 
              errors(193) = .true.
1656 
           endif
1657 
 
1658 
           itarg3(k,j,i) = -ipte3(k,j,i)
1659 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
1660 
              ! Error #194
1661 
              errors(194) = .true.
1662 
           endif
1663 
 
1664 
           rpte3(k,j,i) = i * 2.0
1665 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
1666 
              ! Error #195
1667 
              errors(195) = .true.
1668 
           endif
1669 
 
1670 
           rtarg3(k,j,i) = i * 3.0
1671 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
1672 
              ! Error #196
1673 
              errors(196) = .true.
1674 
           endif
1675 
 
1676 
           chpte3(k,j,i) = 'a'
1677 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
1678 
              ! Error #197
1679 
              errors(197) = .true.
1680 
           endif
1681 
 
1682 
           chtarg3(k,j,i) = 'z'
1683 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
1684 
              ! Error #198
1685 
              errors(198) = .true.
1686 
           endif
1687 
 
1688 
           ch8pte3(k,j,i) = 'aaaaaaaa'
1689 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
1690 
              ! Error #199
1691 
              errors(199) = .true.
1692 
           endif
1693 
 
1694 
           ch8targ3(k,j,i) = 'zzzzzzzz'
1695 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
1696 
              ! Error #200
1697 
              errors(200) = .true.
1698 
           endif
1699 
        end do
1700 
     end do
1701 
  end do
1702 
 
1703 
end subroutine ptr6
1704 
 
1705 
subroutine ptr7
1706 
  common /errors/errors(400)
1707 
  logical :: errors, intne, realne, chne, ch8ne
1708 
  integer :: i,j,k
1709 
  integer, parameter :: n = 9
1710 
  integer, parameter :: m = 10
1711 
  integer, parameter :: o = 11
1712 
  integer itarg1 (n)
1713 
  integer itarg2 (m,n)
1714 
  integer itarg3 (o,m,n)
1715 
  real rtarg1(n)
1716 
  real rtarg2(m,n)
1717 
  real rtarg3(o,m,n)
1718 
  character chtarg1(n)
1719 
  character chtarg2(m,n)
1720 
  character chtarg3(o,m,n)
1721 
  character*8 ch8targ1(n)
1722 
  character*8 ch8targ2(m,n)
1723 
  character*8 ch8targ3(o,m,n)
1724 
  type drvd
1725 
     real r1
1726 
     integer i1
1727 
     integer i2(5)
1728 
  end type drvd
1729 
  type(drvd) dtarg1(n)
1730 
  type(drvd) dtarg2(m,n)
1731 
  type(drvd) dtarg3(o,m,n)
1732 
 
1733 
  pointer(iptr1,dpte1(*))
1734 
  pointer(iptr2,dpte2(m,*))
1735 
  pointer(iptr3,dpte3(o,m,*))
1736 
  pointer(iptr4,ipte1(*))
1737 
  pointer(iptr5,ipte2 (m,*))
1738 
  pointer(iptr6,ipte3(o,m,*))
1739 
  pointer(iptr7,rpte1(*))
1740 
  pointer(iptr8,rpte2(m,*))
1741 
  pointer(iptr9,rpte3(o,m,*))
1742 
  pointer(iptr10,chpte1(*))
1743 
  pointer(iptr11,chpte2(m,*))
1744 
  pointer(iptr12,chpte3(o,m,*))
1745 
  pointer(iptr13,ch8pte1(*))
1746 
  pointer(iptr14,ch8pte2(m,*))
1747 
  pointer(iptr15,ch8pte3(o,m,*))
1748 
 
1749 
  type(drvd) dpte1
1750 
  type(drvd) dpte2
1751 
  type(drvd) dpte3
1752 
  integer ipte1
1753 
  integer ipte2
1754 
  integer ipte3
1755 
  real rpte1
1756 
  real rpte2
1757 
  real rpte3
1758 
  character chpte1
1759 
  character chpte2
1760 
  character chpte3
1761 
  character*8 ch8pte1
1762 
  character*8 ch8pte2
1763 
  character*8 ch8pte3
1764 
 
1765 
  iptr1 = loc(dtarg1)
1766 
  iptr2 = loc(dtarg2)
1767 
  iptr3 = loc(dtarg3)
1768 
  iptr4 = loc(itarg1)
1769 
  iptr5 = loc(itarg2)
1770 
  iptr6 = loc(itarg3)
1771 
  iptr7 = loc(rtarg1)
1772 
  iptr8 = loc(rtarg2)
1773 
  iptr9 = loc(rtarg3)
1774 
  iptr10= loc(chtarg1)
1775 
  iptr11= loc(chtarg2)
1776 
  iptr12= loc(chtarg3)
1777 
  iptr13= loc(ch8targ1)
1778 
  iptr14= loc(ch8targ2)
1779 
  iptr15= loc(ch8targ3)
1780 
 
1781 
  do, i=1,n
1782 
     dpte1(i)%i1=i
1783 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
1784 
        ! Error #201
1785 
        errors(201) = .true.
1786 
     endif
1787 
 
1788 
     dtarg1(i)%i1=2*dpte1(i)%i1
1789 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
1790 
        ! Error #202
1791 
        errors(202) = .true.
1792 
     endif
1793 
 
1794 
     ipte1(i) = i
1795 
     if (intne(ipte1(i), itarg1(i))) then
1796 
        ! Error #203
1797 
        errors(203) = .true.
1798 
     endif
1799 
 
1800 
     itarg1(i) = -ipte1(i)
1801 
     if (intne(ipte1(i), itarg1(i))) then
1802 
        ! Error #204
1803 
        errors(204) = .true.
1804 
     endif
1805 
 
1806 
     rpte1(i) = i * 5.0
1807 
     if (realne(rpte1(i), rtarg1(i))) then
1808 
        ! Error #205
1809 
        errors(205) = .true.
1810 
     endif
1811 
 
1812 
     rtarg1(i) = i * (-5.0)
1813 
     if (realne(rpte1(i), rtarg1(i))) then
1814 
        ! Error #206
1815 
        errors(206) = .true.
1816 
     endif
1817 
 
1818 
     chpte1(i) = 'a'
1819 
     if (chne(chpte1(i), chtarg1(i))) then
1820 
        ! Error #207
1821 
        errors(207) = .true.
1822 
     endif
1823 
 
1824 
     chtarg1(i) = 'z'
1825 
     if (chne(chpte1(i), chtarg1(i))) then
1826 
        ! Error #208
1827 
        errors(208) = .true.
1828 
     endif
1829 
 
1830 
     ch8pte1(i) = 'aaaaaaaa'
1831 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
1832 
        ! Error #209
1833 
        errors(209) = .true.
1834 
     endif
1835 
 
1836 
     ch8targ1(i) = 'zzzzzzzz'
1837 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
1838 
        ! Error #210
1839 
        errors(210) = .true.
1840 
     endif
1841 
 
1842 
     do, j=1,m
1843 
        dpte2(j,i)%r1=1.0
1844 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
1845 
           ! Error #211
1846 
           errors(211) = .true.
1847 
        endif
1848 
 
1849 
        dtarg2(j,i)%r1=2*dpte2(j,i)%r1
1850 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
1851 
           ! Error #212
1852 
           errors(212) = .true.
1853 
        endif
1854 
 
1855 
        ipte2(j,i) = i
1856 
        if (intne(ipte2(j,i), itarg2(j,i))) then
1857 
           ! Error #213
1858 
           errors(213) = .true.
1859 
        endif
1860 
 
1861 
        itarg2(j,i) = -ipte2(j,i)
1862 
        if (intne(ipte2(j,i), itarg2(j,i))) then
1863 
           ! Error #214
1864 
           errors(214) = .true.
1865 
        endif
1866 
 
1867 
        rpte2(j,i) = i * (-2.0)
1868 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
1869 
           ! Error #215
1870 
           errors(215) = .true.
1871 
        endif
1872 
 
1873 
        rtarg2(j,i) = i * (-3.0)
1874 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
1875 
           ! Error #216
1876 
           errors(216) = .true.
1877 
        endif
1878 
 
1879 
        chpte2(j,i) = 'a'
1880 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
1881 
           ! Error #217
1882 
           errors(217) = .true.
1883 
        endif
1884 
 
1885 
        chtarg2(j,i) = 'z'
1886 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
1887 
           ! Error #218
1888 
           errors(218) = .true.
1889 
        endif
1890 
 
1891 
        ch8pte2(j,i) = 'aaaaaaaa'
1892 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
1893 
           ! Error #219
1894 
           errors(219) = .true.
1895 
        endif
1896 
 
1897 
        ch8targ2(j,i) = 'zzzzzzzz'
1898 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
1899 
           ! Error #220
1900 
           errors(220) = .true.
1901 
        endif
1902 
        do k=1,o
1903 
           dpte3(k,j,i)%i2(1+mod(i,5))=i
1904 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
1905 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
1906 
              ! Error #221
1907 
              errors(221) = .true.
1908 
           endif
1909 
 
1910 
           dtarg3(k,j,i)%i2(1+mod(i,5))=2*dpte3(k,j,i)%i2(1+mod(i,5))
1911 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
1912 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
1913 
              ! Error #222
1914 
              errors(222) = .true.
1915 
           endif
1916 
 
1917 
           ipte3(k,j,i) = i
1918 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
1919 
              ! Error #223
1920 
              errors(223) = .true.
1921 
           endif
1922 
 
1923 
           itarg3(k,j,i) = -ipte3(k,j,i)
1924 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
1925 
              ! Error #224
1926 
              errors(224) = .true.
1927 
           endif
1928 
 
1929 
           rpte3(k,j,i) = i * 2.0
1930 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
1931 
              ! Error #225
1932 
              errors(225) = .true.
1933 
           endif
1934 
 
1935 
           rtarg3(k,j,i) = i * 3.0
1936 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
1937 
              ! Error #226
1938 
              errors(226) = .true.
1939 
           endif
1940 
 
1941 
           chpte3(k,j,i) = 'a'
1942 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
1943 
              ! Error #227
1944 
              errors(227) = .true.
1945 
           endif
1946 
 
1947 
           chtarg3(k,j,i) = 'z'
1948 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
1949 
              ! Error #228
1950 
              errors(228) = .true.
1951 
           endif
1952 
 
1953 
           ch8pte3(k,j,i) = 'aaaaaaaa'
1954 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
1955 
              ! Error #229
1956 
              errors(229) = .true.
1957 
           endif
1958 
 
1959 
           ch8targ3(k,j,i) = 'zzzzzzzz'
1960 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
1961 
              ! Error #230
1962 
              errors(230) = .true.
1963 
           endif
1964 
        end do
1965 
     end do
1966 
  end do
1967 
 
1968 
end subroutine ptr7
1969 
 
1970 
subroutine ptr8
1971 
  common /errors/errors(400)
1972 
  logical :: errors, intne, realne, chne, ch8ne
1973 
  integer :: i,j,k
1974 
  integer, parameter :: n = 9
1975 
  integer, parameter :: m = 10
1976 
  integer, parameter :: o = 11
1977 
  integer itarg1 (n)
1978 
  integer itarg2 (m,n)
1979 
  integer itarg3 (o,m,n)
1980 
  real rtarg1(n)
1981 
  real rtarg2(m,n)
1982 
  real rtarg3(o,m,n)
1983 
  character chtarg1(n)
1984 
  character chtarg2(m,n)
1985 
  character chtarg3(o,m,n)
1986 
  character*8 ch8targ1(n)
1987 
  character*8 ch8targ2(m,n)
1988 
  character*8 ch8targ3(o,m,n)
1989 
  type drvd
1990 
     real r1
1991 
     integer i1
1992 
     integer i2(5)
1993 
  end type drvd
1994 
  type(drvd) dtarg1(n)
1995 
  type(drvd) dtarg2(m,n)
1996 
  type(drvd) dtarg3(o,m,n)
1997 
 
1998 
  pointer(iptr1,dpte1)
1999 
  pointer(iptr2,dpte2)
2000 
  pointer(iptr3,dpte3)
2001 
  pointer(iptr4,ipte1)
2002 
  pointer(iptr5,ipte2)
2003 
  pointer(iptr6,ipte3)
2004 
  pointer(iptr7,rpte1)
2005 
  pointer(iptr8,rpte2)
2006 
  pointer(iptr9,rpte3)
2007 
  pointer(iptr10,chpte1)
2008 
  pointer(iptr11,chpte2)
2009 
  pointer(iptr12,chpte3)
2010 
  pointer(iptr13,ch8pte1)
2011 
  pointer(iptr14,ch8pte2)
2012 
  pointer(iptr15,ch8pte3)
2013 
 
2014 
  type(drvd) dpte1(*)
2015 
  type(drvd) dpte2(m,*)
2016 
  type(drvd) dpte3(o,m,*)
2017 
  integer ipte1 (*)
2018 
  integer ipte2 (m,*)
2019 
  integer ipte3 (o,m,*)
2020 
  real rpte1(*)
2021 
  real rpte2(m,*)
2022 
  real rpte3(o,m,*)
2023 
  character chpte1(*)
2024 
  character chpte2(m,*)
2025 
  character chpte3(o,m,*)
2026 
  character*8 ch8pte1(*)
2027 
  character*8 ch8pte2(m,*)
2028 
  character*8 ch8pte3(o,m,*)
2029 
 
2030 
  iptr1 = loc(dtarg1)
2031 
  iptr2 = loc(dtarg2)
2032 
  iptr3 = loc(dtarg3)
2033 
  iptr4 = loc(itarg1)
2034 
  iptr5 = loc(itarg2)
2035 
  iptr6 = loc(itarg3)
2036 
  iptr7 = loc(rtarg1)
2037 
  iptr8 = loc(rtarg2)
2038 
  iptr9 = loc(rtarg3)
2039 
  iptr10= loc(chtarg1)
2040 
  iptr11= loc(chtarg2)
2041 
  iptr12= loc(chtarg3)
2042 
  iptr13= loc(ch8targ1)
2043 
  iptr14= loc(ch8targ2)
2044 
  iptr15= loc(ch8targ3)
2045 
 
2046 
 
2047 
  do, i=1,n
2048 
     dpte1(i)%i1=i
2049 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
2050 
        ! Error #231
2051 
        errors(231) = .true.
2052 
     endif
2053 
 
2054 
     dtarg1(i)%i1=2*dpte1(i)%i1
2055 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
2056 
        ! Error #232
2057 
        errors(232) = .true.
2058 
     endif
2059 
 
2060 
     ipte1(i) = i
2061 
     if (intne(ipte1(i), itarg1(i))) then
2062 
        ! Error #233
2063 
        errors(233) = .true.
2064 
     endif
2065 
 
2066 
     itarg1(i) = -ipte1(i)
2067 
     if (intne(ipte1(i), itarg1(i))) then
2068 
        ! Error #234
2069 
        errors(234) = .true.
2070 
     endif
2071 
 
2072 
     rpte1(i) = i * 5.0
2073 
     if (realne(rpte1(i), rtarg1(i))) then
2074 
        ! Error #235
2075 
        errors(235) = .true.
2076 
     endif
2077 
 
2078 
     rtarg1(i) = i * (-5.0)
2079 
     if (realne(rpte1(i), rtarg1(i))) then
2080 
        ! Error #236
2081 
        errors(236) = .true.
2082 
     endif
2083 
 
2084 
     chpte1(i) = 'a'
2085 
     if (chne(chpte1(i), chtarg1(i))) then
2086 
        ! Error #237
2087 
        errors(237) = .true.
2088 
     endif
2089 
 
2090 
     chtarg1(i) = 'z'
2091 
     if (chne(chpte1(i), chtarg1(i))) then
2092 
        ! Error #238
2093 
        errors(238) = .true.
2094 
     endif
2095 
 
2096 
     ch8pte1(i) = 'aaaaaaaa'
2097 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
2098 
        ! Error #239
2099 
        errors(239) = .true.
2100 
     endif
2101 
 
2102 
     ch8targ1(i) = 'zzzzzzzz'
2103 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
2104 
        ! Error #240
2105 
        errors(240) = .true.
2106 
     endif
2107 
 
2108 
     do, j=1,m
2109 
        dpte2(j,i)%r1=1.0
2110 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
2111 
           ! Error #241
2112 
           errors(241) = .true.
2113 
        endif
2114 
 
2115 
        dtarg2(j,i)%r1=2*dpte2(j,i)%r1
2116 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
2117 
           ! Error #242
2118 
           errors(242) = .true.
2119 
        endif
2120 
 
2121 
        ipte2(j,i) = i
2122 
        if (intne(ipte2(j,i), itarg2(j,i))) then
2123 
           ! Error #243
2124 
           errors(243) = .true.
2125 
        endif
2126 
 
2127 
        itarg2(j,i) = -ipte2(j,i)
2128 
        if (intne(ipte2(j,i), itarg2(j,i))) then
2129 
           ! Error #244
2130 
           errors(244) = .true.
2131 
        endif
2132 
 
2133 
        rpte2(j,i) = i * (-2.0)
2134 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
2135 
           ! Error #245
2136 
           errors(245) = .true.
2137 
        endif
2138 
 
2139 
        rtarg2(j,i) = i * (-3.0)
2140 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
2141 
           ! Error #246
2142 
           errors(246) = .true.
2143 
        endif
2144 
 
2145 
        chpte2(j,i) = 'a'
2146 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
2147 
           ! Error #247
2148 
           errors(247) = .true.
2149 
        endif
2150 
 
2151 
        chtarg2(j,i) = 'z'
2152 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
2153 
           ! Error #248
2154 
           errors(248) = .true.
2155 
        endif
2156 
 
2157 
        ch8pte2(j,i) = 'aaaaaaaa'
2158 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
2159 
           ! Error #249
2160 
           errors(249) = .true.
2161 
        endif
2162 
 
2163 
        ch8targ2(j,i) = 'zzzzzzzz'
2164 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
2165 
           ! Error #250
2166 
           errors(250) = .true.
2167 
        endif
2168 
        do k=1,o
2169 
           dpte3(k,j,i)%i2(1+mod(i,5))=i
2170 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
2171 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
2172 
              ! Error #251
2173 
              errors(251) = .true.
2174 
           endif
2175 
 
2176 
           dtarg3(k,j,i)%i2(1+mod(i,5))=2*dpte3(k,j,i)%i2(1+mod(i,5))
2177 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
2178 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
2179 
              ! Error #252
2180 
              errors(252) = .true.
2181 
           endif
2182 
 
2183 
           ipte3(k,j,i) = i
2184 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
2185 
              ! Error #253
2186 
              errors(253) = .true.
2187 
           endif
2188 
 
2189 
           itarg3(k,j,i) = -ipte3(k,j,i)
2190 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
2191 
              ! Error #254
2192 
              errors(254) = .true.
2193 
           endif
2194 
 
2195 
           rpte3(k,j,i) = i * 2.0
2196 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
2197 
              ! Error #255
2198 
              errors(255) = .true.
2199 
           endif
2200 
 
2201 
           rtarg3(k,j,i) = i * 3.0
2202 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
2203 
              ! Error #256
2204 
              errors(256) = .true.
2205 
           endif
2206 
 
2207 
           chpte3(k,j,i) = 'a'
2208 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
2209 
              ! Error #257
2210 
              errors(257) = .true.
2211 
           endif
2212 
 
2213 
           chtarg3(k,j,i) = 'z'
2214 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
2215 
              ! Error #258
2216 
              errors(258) = .true.
2217 
           endif
2218 
 
2219 
           ch8pte3(k,j,i) = 'aaaaaaaa'
2220 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
2221 
              ! Error #259
2222 
              errors(259) = .true.
2223 
           endif
2224 
 
2225 
           ch8targ3(k,j,i) = 'zzzzzzzz'
2226 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
2227 
              ! Error #260
2228 
              errors(260) = .true.
2229 
           endif
2230 
        end do
2231 
     end do
2232 
  end do
2233 
end subroutine ptr8
2234 
 
2235 
 
2236 
subroutine ptr9(nnn,mmm,ooo)
2237 
  common /errors/errors(400)
2238 
  logical :: errors, intne, realne, chne, ch8ne
2239 
  integer :: i,j,k
2240 
  integer :: nnn,mmm,ooo
2241 
  integer, parameter :: n = 9
2242 
  integer, parameter :: m = 10
2243 
  integer, parameter :: o = 11
2244 
  integer itarg1 (n)
2245 
  integer itarg2 (m,n)
2246 
  integer itarg3 (o,m,n)
2247 
  real rtarg1(n)
2248 
  real rtarg2(m,n)
2249 
  real rtarg3(o,m,n)
2250 
  character chtarg1(n)
2251 
  character chtarg2(m,n)
2252 
  character chtarg3(o,m,n)
2253 
  character*8 ch8targ1(n)
2254 
  character*8 ch8targ2(m,n)
2255 
  character*8 ch8targ3(o,m,n)
2256 
  type drvd
2257 
     real r1
2258 
     integer i1
2259 
     integer i2(5)
2260 
  end type drvd
2261 
  type(drvd) dtarg1(n)
2262 
  type(drvd) dtarg2(m,n)
2263 
  type(drvd) dtarg3(o,m,n)
2264 
 
2265 
  type(drvd) dpte1(nnn)
2266 
  type(drvd) dpte2(mmm,nnn)
2267 
  type(drvd) dpte3(ooo,mmm,nnn)
2268 
  integer ipte1 (nnn)
2269 
  integer ipte2 (mmm,nnn)
2270 
  integer ipte3 (ooo,mmm,nnn)
2271 
  real rpte1(nnn)
2272 
  real rpte2(mmm,nnn)
2273 
  real rpte3(ooo,mmm,nnn)
2274 
  character chpte1(nnn)
2275 
  character chpte2(mmm,nnn)
2276 
  character chpte3(ooo,mmm,nnn)
2277 
  character*8 ch8pte1(nnn)
2278 
  character*8 ch8pte2(mmm,nnn)
2279 
  character*8 ch8pte3(ooo,mmm,nnn)
2280 
 
2281 
  pointer(iptr1,dpte1)
2282 
  pointer(iptr2,dpte2)
2283 
  pointer(iptr3,dpte3)
2284 
  pointer(iptr4,ipte1)
2285 
  pointer(iptr5,ipte2)
2286 
  pointer(iptr6,ipte3)
2287 
  pointer(iptr7,rpte1)
2288 
  pointer(iptr8,rpte2)
2289 
  pointer(iptr9,rpte3)
2290 
  pointer(iptr10,chpte1)
2291 
  pointer(iptr11,chpte2)
2292 
  pointer(iptr12,chpte3)
2293 
  pointer(iptr13,ch8pte1)
2294 
  pointer(iptr14,ch8pte2)
2295 
  pointer(iptr15,ch8pte3)
2296 
 
2297 
  iptr1 = loc(dtarg1)
2298 
  iptr2 = loc(dtarg2)
2299 
  iptr3 = loc(dtarg3)
2300 
  iptr4 = loc(itarg1)
2301 
  iptr5 = loc(itarg2)
2302 
  iptr6 = loc(itarg3)
2303 
  iptr7 = loc(rtarg1)
2304 
  iptr8 = loc(rtarg2)
2305 
  iptr9 = loc(rtarg3)
2306 
  iptr10= loc(chtarg1)
2307 
  iptr11= loc(chtarg2)
2308 
  iptr12= loc(chtarg3)
2309 
  iptr13= loc(ch8targ1)
2310 
  iptr14= loc(ch8targ2)
2311 
  iptr15= loc(ch8targ3)
2312 
 
2313 
 
2314 
  do, i=1,n
2315 
     dpte1(i)%i1=i
2316 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
2317 
        ! Error #261
2318 
        errors(261) = .true.
2319 
     endif
2320 
 
2321 
     dtarg1(i)%i1=2*dpte1(i)%i1
2322 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
2323 
        ! Error #262
2324 
        errors(262) = .true.
2325 
     endif
2326 
 
2327 
     ipte1(i) = i
2328 
     if (intne(ipte1(i), itarg1(i))) then
2329 
        ! Error #263
2330 
        errors(263) = .true.
2331 
     endif
2332 
 
2333 
     itarg1(i) = -ipte1(i)
2334 
     if (intne(ipte1(i), itarg1(i))) then
2335 
        ! Error #264
2336 
        errors(264) = .true.
2337 
     endif
2338 
 
2339 
     rpte1(i) = i * 5.0
2340 
     if (realne(rpte1(i), rtarg1(i))) then
2341 
        ! Error #265
2342 
        errors(265) = .true.
2343 
     endif
2344 
 
2345 
     rtarg1(i) = i * (-5.0)
2346 
     if (realne(rpte1(i), rtarg1(i))) then
2347 
        ! Error #266
2348 
        errors(266) = .true.
2349 
     endif
2350 
 
2351 
     chpte1(i) = 'a'
2352 
     if (chne(chpte1(i), chtarg1(i))) then
2353 
        ! Error #267
2354 
        errors(267) = .true.
2355 
     endif
2356 
 
2357 
     chtarg1(i) = 'z'
2358 
     if (chne(chpte1(i), chtarg1(i))) then
2359 
        ! Error #268
2360 
        errors(268) = .true.
2361 
     endif
2362 
 
2363 
     ch8pte1(i) = 'aaaaaaaa'
2364 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
2365 
        ! Error #269
2366 
        errors(269) = .true.
2367 
     endif
2368 
 
2369 
     ch8targ1(i) = 'zzzzzzzz'
2370 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
2371 
        ! Error #270
2372 
        errors(270) = .true.
2373 
     endif
2374 
 
2375 
     do, j=1,m
2376 
        dpte2(j,i)%r1=1.0
2377 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
2378 
           ! Error #271
2379 
           errors(271) = .true.
2380 
        endif
2381 
 
2382 
        dtarg2(j,i)%r1=2*dpte2(j,i)%r1
2383 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
2384 
           ! Error #272
2385 
           errors(272) = .true.
2386 
        endif
2387 
 
2388 
        ipte2(j,i) = i
2389 
        if (intne(ipte2(j,i), itarg2(j,i))) then
2390 
           ! Error #273
2391 
           errors(273) = .true.
2392 
        endif
2393 
 
2394 
        itarg2(j,i) = -ipte2(j,i)
2395 
        if (intne(ipte2(j,i), itarg2(j,i))) then
2396 
           ! Error #274
2397 
           errors(274) = .true.
2398 
        endif
2399 
 
2400 
        rpte2(j,i) = i * (-2.0)
2401 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
2402 
           ! Error #275
2403 
           errors(275) = .true.
2404 
        endif
2405 
 
2406 
        rtarg2(j,i) = i * (-3.0)
2407 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
2408 
           ! Error #276
2409 
           errors(276) = .true.
2410 
        endif
2411 
 
2412 
        chpte2(j,i) = 'a'
2413 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
2414 
           ! Error #277
2415 
           errors(277) = .true.
2416 
        endif
2417 
 
2418 
        chtarg2(j,i) = 'z'
2419 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
2420 
           ! Error #278
2421 
           errors(278) = .true.
2422 
        endif
2423 
 
2424 
        ch8pte2(j,i) = 'aaaaaaaa'
2425 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
2426 
           ! Error #279
2427 
           errors(279) = .true.
2428 
        endif
2429 
 
2430 
        ch8targ2(j,i) = 'zzzzzzzz'
2431 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
2432 
           ! Error #280
2433 
           errors(280) = .true.
2434 
        endif
2435 
        do k=1,o
2436 
           dpte3(k,j,i)%i2(1+mod(i,5))=i
2437 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
2438 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
2439 
              ! Error #281
2440 
              errors(281) = .true.
2441 
           endif
2442 
 
2443 
           dtarg3(k,j,i)%i2(1+mod(i,5))=2*dpte3(k,j,i)%i2(1+mod(i,5))
2444 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
2445 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
2446 
              ! Error #282
2447 
              errors(282) = .true.
2448 
           endif
2449 
 
2450 
           ipte3(k,j,i) = i
2451 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
2452 
              ! Error #283
2453 
              errors(283) = .true.
2454 
           endif
2455 
 
2456 
           itarg3(k,j,i) = -ipte3(k,j,i)
2457 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
2458 
              ! Error #284
2459 
              errors(284) = .true.
2460 
           endif
2461 
 
2462 
           rpte3(k,j,i) = i * 2.0
2463 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
2464 
              ! Error #285
2465 
              errors(285) = .true.
2466 
           endif
2467 
 
2468 
           rtarg3(k,j,i) = i * 3.0
2469 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
2470 
              ! Error #286
2471 
              errors(286) = .true.
2472 
           endif
2473 
 
2474 
           chpte3(k,j,i) = 'a'
2475 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
2476 
              ! Error #287
2477 
              errors(287) = .true.
2478 
           endif
2479 
 
2480 
           chtarg3(k,j,i) = 'z'
2481 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
2482 
              ! Error #288
2483 
              errors(288) = .true.
2484 
           endif
2485 
 
2486 
           ch8pte3(k,j,i) = 'aaaaaaaa'
2487 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
2488 
              ! Error #289
2489 
              errors(289) = .true.
2490 
           endif
2491 
 
2492 
           ch8targ3(k,j,i) = 'zzzzzzzz'
2493 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
2494 
              ! Error #290
2495 
              errors(290) = .true.
2496 
           endif
2497 
        end do
2498 
     end do
2499 
  end do
2500 
 
2501 
  rtarg3 = .5
2502 
  ! Vector syntax
2503 
  do, i=1,n
2504 
     ipte3 = i
2505 
     rpte3 = rpte3+1
2506 
     do, j=1,m
2507 
        do k=1,o
2508 
           if (intne(itarg3(k,j,i), i)) then
2509 
              ! Error #291
2510 
              errors(291) = .true.
2511 
           endif
2512 
 
2513 
           if (realne(rtarg3(k,j,i), i+.5)) then
2514 
              ! Error #292
2515 
              errors(292) = .true.
2516 
           endif
2517 
        end do
2518 
     end do
2519 
  end do
2520 
 
2521 
end subroutine ptr9
2522 
 
2523 
subroutine ptr10(nnn,mmm,ooo)
2524 
  common /errors/errors(400)
2525 
  logical :: errors, intne, realne, chne, ch8ne
2526 
  integer :: i,j,k
2527 
  integer :: nnn,mmm,ooo
2528 
  integer, parameter :: n = 9
2529 
  integer, parameter :: m = 10
2530 
  integer, parameter :: o = 11
2531 
  integer itarg1 (n)
2532 
  integer itarg2 (m,n)
2533 
  integer itarg3 (o,m,n)
2534 
  real rtarg1(n)
2535 
  real rtarg2(m,n)
2536 
  real rtarg3(o,m,n)
2537 
  character chtarg1(n)
2538 
  character chtarg2(m,n)
2539 
  character chtarg3(o,m,n)
2540 
  character*8 ch8targ1(n)
2541 
  character*8 ch8targ2(m,n)
2542 
  character*8 ch8targ3(o,m,n)
2543 
  type drvd
2544 
     real r1
2545 
     integer i1
2546 
     integer i2(5)
2547 
  end type drvd
2548 
  type(drvd) dtarg1(n)
2549 
  type(drvd) dtarg2(m,n)
2550 
  type(drvd) dtarg3(o,m,n)
2551 
 
2552 
  type(drvd) dpte1
2553 
  type(drvd) dpte2
2554 
  type(drvd) dpte3
2555 
  integer ipte1
2556 
  integer ipte2
2557 
  integer ipte3
2558 
  real rpte1
2559 
  real rpte2
2560 
  real rpte3
2561 
  character chpte1
2562 
  character chpte2
2563 
  character chpte3
2564 
  character*8 ch8pte1
2565 
  character*8 ch8pte2
2566 
  character*8 ch8pte3
2567 
 
2568 
  pointer(iptr1,dpte1(nnn))
2569 
  pointer(iptr2,dpte2(mmm,nnn))
2570 
  pointer(iptr3,dpte3(ooo,mmm,nnn))
2571 
  pointer(iptr4,ipte1(nnn))
2572 
  pointer(iptr5,ipte2 (mmm,nnn))
2573 
  pointer(iptr6,ipte3(ooo,mmm,nnn))
2574 
  pointer(iptr7,rpte1(nnn))
2575 
  pointer(iptr8,rpte2(mmm,nnn))
2576 
  pointer(iptr9,rpte3(ooo,mmm,nnn))
2577 
  pointer(iptr10,chpte1(nnn))
2578 
  pointer(iptr11,chpte2(mmm,nnn))
2579 
  pointer(iptr12,chpte3(ooo,mmm,nnn))
2580 
  pointer(iptr13,ch8pte1(nnn))
2581 
  pointer(iptr14,ch8pte2(mmm,nnn))
2582 
  pointer(iptr15,ch8pte3(ooo,mmm,nnn))
2583 
 
2584 
  iptr1 = loc(dtarg1)
2585 
  iptr2 = loc(dtarg2)
2586 
  iptr3 = loc(dtarg3)
2587 
  iptr4 = loc(itarg1)
2588 
  iptr5 = loc(itarg2)
2589 
  iptr6 = loc(itarg3)
2590 
  iptr7 = loc(rtarg1)
2591 
  iptr8 = loc(rtarg2)
2592 
  iptr9 = loc(rtarg3)
2593 
  iptr10= loc(chtarg1)
2594 
  iptr11= loc(chtarg2)
2595 
  iptr12= loc(chtarg3)
2596 
  iptr13= loc(ch8targ1)
2597 
  iptr14= loc(ch8targ2)
2598 
  iptr15= loc(ch8targ3)
2599 
 
2600 
  do, i=1,n
2601 
     dpte1(i)%i1=i
2602 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
2603 
        ! Error #293
2604 
        errors(293) = .true.
2605 
     endif
2606 
 
2607 
     dtarg1(i)%i1=2*dpte1(i)%i1
2608 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
2609 
        ! Error #294
2610 
        errors(294) = .true.
2611 
     endif
2612 
 
2613 
     ipte1(i) = i
2614 
     if (intne(ipte1(i), itarg1(i))) then
2615 
        ! Error #295
2616 
        errors(295) = .true.
2617 
     endif
2618 
 
2619 
     itarg1(i) = -ipte1(i)
2620 
     if (intne(ipte1(i), itarg1(i))) then
2621 
        ! Error #296
2622 
        errors(296) = .true.
2623 
     endif
2624 
 
2625 
     rpte1(i) = i * 5.0
2626 
     if (realne(rpte1(i), rtarg1(i))) then
2627 
        ! Error #297
2628 
        errors(297) = .true.
2629 
     endif
2630 
 
2631 
     rtarg1(i) = i * (-5.0)
2632 
     if (realne(rpte1(i), rtarg1(i))) then
2633 
        ! Error #298
2634 
        errors(298) = .true.
2635 
     endif
2636 
 
2637 
     chpte1(i) = 'a'
2638 
     if (chne(chpte1(i), chtarg1(i))) then
2639 
        ! Error #299
2640 
        errors(299) = .true.
2641 
     endif
2642 
 
2643 
     chtarg1(i) = 'z'
2644 
     if (chne(chpte1(i), chtarg1(i))) then
2645 
        ! Error #300
2646 
        errors(300) = .true.
2647 
     endif
2648 
 
2649 
     ch8pte1(i) = 'aaaaaaaa'
2650 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
2651 
        ! Error #301
2652 
        errors(301) = .true.
2653 
     endif
2654 
 
2655 
     ch8targ1(i) = 'zzzzzzzz'
2656 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
2657 
        ! Error #302
2658 
        errors(302) = .true.
2659 
     endif
2660 
 
2661 
     do, j=1,m
2662 
        dpte2(j,i)%r1=1.0
2663 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
2664 
           ! Error #303
2665 
           errors(303) = .true.
2666 
        endif
2667 
 
2668 
        dtarg2(j,i)%r1=2*dpte2(j,i)%r1
2669 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
2670 
           ! Error #304
2671 
           errors(304) = .true.
2672 
        endif
2673 
 
2674 
        ipte2(j,i) = i
2675 
        if (intne(ipte2(j,i), itarg2(j,i))) then
2676 
           ! Error #305
2677 
           errors(305) = .true.
2678 
        endif
2679 
 
2680 
        itarg2(j,i) = -ipte2(j,i)
2681 
        if (intne(ipte2(j,i), itarg2(j,i))) then
2682 
           ! Error #306
2683 
           errors(306) = .true.
2684 
        endif
2685 
 
2686 
        rpte2(j,i) = i * (-2.0)
2687 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
2688 
           ! Error #307
2689 
           errors(307) = .true.
2690 
        endif
2691 
 
2692 
        rtarg2(j,i) = i * (-3.0)
2693 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
2694 
           ! Error #308
2695 
           errors(308) = .true.
2696 
        endif
2697 
 
2698 
        chpte2(j,i) = 'a'
2699 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
2700 
           ! Error #309
2701 
           errors(309) = .true.
2702 
        endif
2703 
 
2704 
        chtarg2(j,i) = 'z'
2705 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
2706 
           ! Error #310
2707 
           errors(310) = .true.
2708 
        endif
2709 
 
2710 
        ch8pte2(j,i) = 'aaaaaaaa'
2711 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
2712 
           ! Error #311
2713 
           errors(311) = .true.
2714 
        endif
2715 
 
2716 
        ch8targ2(j,i) = 'zzzzzzzz'
2717 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
2718 
           ! Error #312
2719 
           errors(312) = .true.
2720 
        endif
2721 
        do k=1,o
2722 
           dpte3(k,j,i)%i2(1+mod(i,5))=i
2723 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
2724 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
2725 
              ! Error #313
2726 
              errors(313) = .true.
2727 
           endif
2728 
 
2729 
           dtarg3(k,j,i)%i2(1+mod(i,5))=2*dpte3(k,j,i)%i2(1+mod(i,5))
2730 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
2731 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
2732 
              ! Error #314
2733 
              errors(314) = .true.
2734 
           endif
2735 
 
2736 
           ipte3(k,j,i) = i
2737 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
2738 
              ! Error #315
2739 
              errors(315) = .true.
2740 
           endif
2741 
 
2742 
           itarg3(k,j,i) = -ipte3(k,j,i)
2743 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
2744 
              ! Error #316
2745 
              errors(316) = .true.
2746 
           endif
2747 
 
2748 
           rpte3(k,j,i) = i * 2.0
2749 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
2750 
              ! Error #317
2751 
              errors(317) = .true.
2752 
           endif
2753 
 
2754 
           rtarg3(k,j,i) = i * 3.0
2755 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
2756 
              ! Error #318
2757 
              errors(318) = .true.
2758 
           endif
2759 
 
2760 
           chpte3(k,j,i) = 'a'
2761 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
2762 
              ! Error #319
2763 
              errors(319) = .true.
2764 
           endif
2765 
 
2766 
           chtarg3(k,j,i) = 'z'
2767 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
2768 
              ! Error #320
2769 
              errors(320) = .true.
2770 
           endif
2771 
 
2772 
           ch8pte3(k,j,i) = 'aaaaaaaa'
2773 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
2774 
              ! Error #321
2775 
              errors(321) = .true.
2776 
           endif
2777 
 
2778 
           ch8targ3(k,j,i) = 'zzzzzzzz'
2779 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
2780 
              ! Error #322
2781 
              errors(322) = .true.
2782 
           endif
2783 
        end do
2784 
     end do
2785 
  end do
2786 
 
2787 
  rtarg3 = .5
2788 
  ! Vector syntax
2789 
  do, i=1,n
2790 
     ipte3 = i
2791 
     rpte3 = rpte3+1
2792 
     do, j=1,m
2793 
        do k=1,o
2794 
           if (intne(itarg3(k,j,i), i)) then
2795 
              ! Error #323
2796 
              errors(323) = .true.
2797 
           endif
2798 
 
2799 
           if (realne(rtarg3(k,j,i), i+.5)) then
2800 
              ! Error #324
2801 
              errors(324) = .true.
2802 
           endif
2803 
        end do
2804 
     end do
2805 
  end do
2806 
end subroutine ptr10
2807 
 
2808 
subroutine ptr11(nnn,mmm,ooo)
2809 
  common /errors/errors(400)
2810 
  logical :: errors, intne, realne, chne, ch8ne
2811 
  integer :: i,j,k
2812 
  integer :: nnn,mmm,ooo
2813 
  integer, parameter :: n = 9
2814 
  integer, parameter :: m = 10
2815 
  integer, parameter :: o = 11
2816 
  integer itarg1 (n)
2817 
  integer itarg2 (m,n)
2818 
  integer itarg3 (o,m,n)
2819 
  real rtarg1(n)
2820 
  real rtarg2(m,n)
2821 
  real rtarg3(o,m,n)
2822 
  character chtarg1(n)
2823 
  character chtarg2(m,n)
2824 
  character chtarg3(o,m,n)
2825 
  character*8 ch8targ1(n)
2826 
  character*8 ch8targ2(m,n)
2827 
  character*8 ch8targ3(o,m,n)
2828 
  type drvd
2829 
     real r1
2830 
     integer i1
2831 
     integer i2(5)
2832 
  end type drvd
2833 
  type(drvd) dtarg1(n)
2834 
  type(drvd) dtarg2(m,n)
2835 
  type(drvd) dtarg3(o,m,n)
2836 
 
2837 
  pointer(iptr1,dpte1(nnn))
2838 
  pointer(iptr2,dpte2(mmm,nnn))
2839 
  pointer(iptr3,dpte3(ooo,mmm,nnn))
2840 
  pointer(iptr4,ipte1(nnn))
2841 
  pointer(iptr5,ipte2 (mmm,nnn))
2842 
  pointer(iptr6,ipte3(ooo,mmm,nnn))
2843 
  pointer(iptr7,rpte1(nnn))
2844 
  pointer(iptr8,rpte2(mmm,nnn))
2845 
  pointer(iptr9,rpte3(ooo,mmm,nnn))
2846 
  pointer(iptr10,chpte1(nnn))
2847 
  pointer(iptr11,chpte2(mmm,nnn))
2848 
  pointer(iptr12,chpte3(ooo,mmm,nnn))
2849 
  pointer(iptr13,ch8pte1(nnn))
2850 
  pointer(iptr14,ch8pte2(mmm,nnn))
2851 
  pointer(iptr15,ch8pte3(ooo,mmm,nnn))
2852 
 
2853 
  type(drvd) dpte1
2854 
  type(drvd) dpte2
2855 
  type(drvd) dpte3
2856 
  integer ipte1
2857 
  integer ipte2
2858 
  integer ipte3
2859 
  real rpte1
2860 
  real rpte2
2861 
  real rpte3
2862 
  character chpte1
2863 
  character chpte2
2864 
  character chpte3
2865 
  character*8 ch8pte1
2866 
  character*8 ch8pte2
2867 
  character*8 ch8pte3
2868 
 
2869 
  iptr1 = loc(dtarg1)
2870 
  iptr2 = loc(dtarg2)
2871 
  iptr3 = loc(dtarg3)
2872 
  iptr4 = loc(itarg1)
2873 
  iptr5 = loc(itarg2)
2874 
  iptr6 = loc(itarg3)
2875 
  iptr7 = loc(rtarg1)
2876 
  iptr8 = loc(rtarg2)
2877 
  iptr9 = loc(rtarg3)
2878 
  iptr10= loc(chtarg1)
2879 
  iptr11= loc(chtarg2)
2880 
  iptr12= loc(chtarg3)
2881 
  iptr13= loc(ch8targ1)
2882 
  iptr14= loc(ch8targ2)
2883 
  iptr15= loc(ch8targ3)
2884 
 
2885 
  do, i=1,n
2886 
     dpte1(i)%i1=i
2887 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
2888 
        ! Error #325
2889 
        errors(325) = .true.
2890 
     endif
2891 
 
2892 
     dtarg1(i)%i1=2*dpte1(i)%i1
2893 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
2894 
        ! Error #326
2895 
        errors(326) = .true.
2896 
     endif
2897 
 
2898 
     ipte1(i) = i
2899 
     if (intne(ipte1(i), itarg1(i))) then
2900 
        ! Error #327
2901 
        errors(327) = .true.
2902 
     endif
2903 
 
2904 
     itarg1(i) = -ipte1(i)
2905 
     if (intne(ipte1(i), itarg1(i))) then
2906 
        ! Error #328
2907 
        errors(328) = .true.
2908 
     endif
2909 
 
2910 
     rpte1(i) = i * 5.0
2911 
     if (realne(rpte1(i), rtarg1(i))) then
2912 
        ! Error #329
2913 
        errors(329) = .true.
2914 
     endif
2915 
 
2916 
     rtarg1(i) = i * (-5.0)
2917 
     if (realne(rpte1(i), rtarg1(i))) then
2918 
        ! Error #330
2919 
        errors(330) = .true.
2920 
     endif
2921 
 
2922 
     chpte1(i) = 'a'
2923 
     if (chne(chpte1(i), chtarg1(i))) then
2924 
        ! Error #331
2925 
        errors(331) = .true.
2926 
     endif
2927 
 
2928 
     chtarg1(i) = 'z'
2929 
     if (chne(chpte1(i), chtarg1(i))) then
2930 
        ! Error #332
2931 
        errors(332) = .true.
2932 
     endif
2933 
 
2934 
     ch8pte1(i) = 'aaaaaaaa'
2935 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
2936 
        ! Error #333
2937 
        errors(333) = .true.
2938 
     endif
2939 
 
2940 
     ch8targ1(i) = 'zzzzzzzz'
2941 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
2942 
        ! Error #334
2943 
        errors(334) = .true.
2944 
     endif
2945 
 
2946 
     do, j=1,m
2947 
        dpte2(j,i)%r1=1.0
2948 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
2949 
           ! Error #335
2950 
           errors(335) = .true.
2951 
        endif
2952 
 
2953 
        dtarg2(j,i)%r1=2*dpte2(j,i)%r1
2954 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
2955 
           ! Error #336
2956 
           errors(336) = .true.
2957 
        endif
2958 
 
2959 
        ipte2(j,i) = i
2960 
        if (intne(ipte2(j,i), itarg2(j,i))) then
2961 
           ! Error #337
2962 
           errors(337) = .true.
2963 
        endif
2964 
 
2965 
        itarg2(j,i) = -ipte2(j,i)
2966 
        if (intne(ipte2(j,i), itarg2(j,i))) then
2967 
           ! Error #338
2968 
           errors(338) = .true.
2969 
        endif
2970 
 
2971 
        rpte2(j,i) = i * (-2.0)
2972 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
2973 
           ! Error #339
2974 
           errors(339) = .true.
2975 
        endif
2976 
 
2977 
        rtarg2(j,i) = i * (-3.0)
2978 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
2979 
           ! Error #340
2980 
           errors(340) = .true.
2981 
        endif
2982 
 
2983 
        chpte2(j,i) = 'a'
2984 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
2985 
           ! Error #341
2986 
           errors(341) = .true.
2987 
        endif
2988 
 
2989 
        chtarg2(j,i) = 'z'
2990 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
2991 
           ! Error #342
2992 
           errors(342) = .true.
2993 
        endif
2994 
 
2995 
        ch8pte2(j,i) = 'aaaaaaaa'
2996 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
2997 
           ! Error #343
2998 
           errors(343) = .true.
2999 
        endif
3000 
 
3001 
        ch8targ2(j,i) = 'zzzzzzzz'
3002 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
3003 
           ! Error #344
3004 
           errors(344) = .true.
3005 
        endif
3006 
        do k=1,o
3007 
           dpte3(k,j,i)%i2(1+mod(i,5))=i
3008 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
3009 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
3010 
              ! Error #345
3011 
              errors(345) = .true.
3012 
           endif
3013 
 
3014 
           dtarg3(k,j,i)%i2(1+mod(i,5))=2*dpte3(k,j,i)%i2(1+mod(i,5))
3015 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
3016 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
3017 
              ! Error #346
3018 
              errors(346) = .true.
3019 
           endif
3020 
 
3021 
           ipte3(k,j,i) = i
3022 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
3023 
              ! Error #347
3024 
              errors(347) = .true.
3025 
           endif
3026 
 
3027 
           itarg3(k,j,i) = -ipte3(k,j,i)
3028 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
3029 
              ! Error #348
3030 
              errors(348) = .true.
3031 
           endif
3032 
 
3033 
           rpte3(k,j,i) = i * 2.0
3034 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
3035 
              ! Error #349
3036 
              errors(349) = .true.
3037 
           endif
3038 
 
3039 
           rtarg3(k,j,i) = i * 3.0
3040 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
3041 
              ! Error #350
3042 
              errors(350) = .true.
3043 
           endif
3044 
 
3045 
           chpte3(k,j,i) = 'a'
3046 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
3047 
              ! Error #351
3048 
              errors(351) = .true.
3049 
           endif
3050 
 
3051 
           chtarg3(k,j,i) = 'z'
3052 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
3053 
              ! Error #352
3054 
              errors(352) = .true.
3055 
           endif
3056 
 
3057 
           ch8pte3(k,j,i) = 'aaaaaaaa'
3058 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
3059 
              ! Error #353
3060 
              errors(353) = .true.
3061 
           endif
3062 
 
3063 
           ch8targ3(k,j,i) = 'zzzzzzzz'
3064 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
3065 
              ! Error #354
3066 
              errors(354) = .true.
3067 
           endif
3068 
        end do
3069 
     end do
3070 
  end do
3071 
 
3072 
  rtarg3 = .5
3073 
  ! Vector syntax
3074 
  do, i=1,n
3075 
     ipte3 = i
3076 
     rpte3 = rpte3+1
3077 
     do, j=1,m
3078 
        do k=1,o
3079 
           if (intne(itarg3(k,j,i), i)) then
3080 
              ! Error #355
3081 
              errors(355) = .true.
3082 
           endif
3083 
 
3084 
           if (realne(rtarg3(k,j,i), i+.5)) then
3085 
              ! Error #356
3086 
              errors(356) = .true.
3087 
           endif
3088 
        end do
3089 
     end do
3090 
  end do
3091 
end subroutine ptr11
3092 
 
3093 
subroutine ptr12(nnn,mmm,ooo)
3094 
  common /errors/errors(400)
3095 
  logical :: errors, intne, realne, chne, ch8ne
3096 
  integer :: i,j,k
3097 
  integer :: nnn,mmm,ooo
3098 
  integer, parameter :: n = 9
3099 
  integer, parameter :: m = 10
3100 
  integer, parameter :: o = 11
3101 
  integer itarg1 (n)
3102 
  integer itarg2 (m,n)
3103 
  integer itarg3 (o,m,n)
3104 
  real rtarg1(n)
3105 
  real rtarg2(m,n)
3106 
  real rtarg3(o,m,n)
3107 
  character chtarg1(n)
3108 
  character chtarg2(m,n)
3109 
  character chtarg3(o,m,n)
3110 
  character*8 ch8targ1(n)
3111 
  character*8 ch8targ2(m,n)
3112 
  character*8 ch8targ3(o,m,n)
3113 
  type drvd
3114 
     real r1
3115 
     integer i1
3116 
     integer i2(5)
3117 
  end type drvd
3118 
  type(drvd) dtarg1(n)
3119 
  type(drvd) dtarg2(m,n)
3120 
  type(drvd) dtarg3(o,m,n)
3121 
 
3122 
  pointer(iptr1,dpte1)
3123 
  pointer(iptr2,dpte2)
3124 
  pointer(iptr3,dpte3)
3125 
  pointer(iptr4,ipte1)
3126 
  pointer(iptr5,ipte2)
3127 
  pointer(iptr6,ipte3)
3128 
  pointer(iptr7,rpte1)
3129 
  pointer(iptr8,rpte2)
3130 
  pointer(iptr9,rpte3)
3131 
  pointer(iptr10,chpte1)
3132 
  pointer(iptr11,chpte2)
3133 
  pointer(iptr12,chpte3)
3134 
  pointer(iptr13,ch8pte1)
3135 
  pointer(iptr14,ch8pte2)
3136 
  pointer(iptr15,ch8pte3)
3137 
 
3138 
  type(drvd) dpte1(nnn)
3139 
  type(drvd) dpte2(mmm,nnn)
3140 
  type(drvd) dpte3(ooo,mmm,nnn)
3141 
  integer ipte1 (nnn)
3142 
  integer ipte2 (mmm,nnn)
3143 
  integer ipte3 (ooo,mmm,nnn)
3144 
  real rpte1(nnn)
3145 
  real rpte2(mmm,nnn)
3146 
  real rpte3(ooo,mmm,nnn)
3147 
  character chpte1(nnn)
3148 
  character chpte2(mmm,nnn)
3149 
  character chpte3(ooo,mmm,nnn)
3150 
  character*8 ch8pte1(nnn)
3151 
  character*8 ch8pte2(mmm,nnn)
3152 
  character*8 ch8pte3(ooo,mmm,nnn)
3153 
 
3154 
  iptr1 = loc(dtarg1)
3155 
  iptr2 = loc(dtarg2)
3156 
  iptr3 = loc(dtarg3)
3157 
  iptr4 = loc(itarg1)
3158 
  iptr5 = loc(itarg2)
3159 
  iptr6 = loc(itarg3)
3160 
  iptr7 = loc(rtarg1)
3161 
  iptr8 = loc(rtarg2)
3162 
  iptr9 = loc(rtarg3)
3163 
  iptr10= loc(chtarg1)
3164 
  iptr11= loc(chtarg2)
3165 
  iptr12= loc(chtarg3)
3166 
  iptr13= loc(ch8targ1)
3167 
  iptr14= loc(ch8targ2)
3168 
  iptr15= loc(ch8targ3)
3169 
 
3170 
 
3171 
  do, i=1,n
3172 
     dpte1(i)%i1=i
3173 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
3174 
        ! Error #357
3175 
        errors(357) = .true.
3176 
     endif
3177 
 
3178 
     dtarg1(i)%i1=2*dpte1(i)%i1
3179 
     if (intne(dpte1(i)%i1, dtarg1(i)%i1)) then
3180 
        ! Error #358
3181 
        errors(358) = .true.
3182 
     endif
3183 
 
3184 
     ipte1(i) = i
3185 
     if (intne(ipte1(i), itarg1(i))) then
3186 
        ! Error #359
3187 
        errors(359) = .true.
3188 
     endif
3189 
 
3190 
     itarg1(i) = -ipte1(i)
3191 
     if (intne(ipte1(i), itarg1(i))) then
3192 
        ! Error #360
3193 
        errors(360) = .true.
3194 
     endif
3195 
 
3196 
     rpte1(i) = i * 5.0
3197 
     if (realne(rpte1(i), rtarg1(i))) then
3198 
        ! Error #361
3199 
        errors(361) = .true.
3200 
     endif
3201 
 
3202 
     rtarg1(i) = i * (-5.0)
3203 
     if (realne(rpte1(i), rtarg1(i))) then
3204 
        ! Error #362
3205 
        errors(362) = .true.
3206 
     endif
3207 
 
3208 
     chpte1(i) = 'a'
3209 
     if (chne(chpte1(i), chtarg1(i))) then
3210 
        ! Error #363
3211 
        errors(363) = .true.
3212 
     endif
3213 
 
3214 
     chtarg1(i) = 'z'
3215 
     if (chne(chpte1(i), chtarg1(i))) then
3216 
        ! Error #364
3217 
        errors(364) = .true.
3218 
     endif
3219 
 
3220 
     ch8pte1(i) = 'aaaaaaaa'
3221 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
3222 
        ! Error #365
3223 
        errors(365) = .true.
3224 
     endif
3225 
 
3226 
     ch8targ1(i) = 'zzzzzzzz'
3227 
     if (ch8ne(ch8pte1(i), ch8targ1(i))) then
3228 
        ! Error #366
3229 
        errors(366) = .true.
3230 
     endif
3231 
 
3232 
     do, j=1,m
3233 
        dpte2(j,i)%r1=1.0
3234 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
3235 
           ! Error #367
3236 
           errors(367) = .true.
3237 
        endif
3238 
 
3239 
        dtarg2(j,i)%r1=2*dpte2(j,i)%r1
3240 
        if (realne(dpte2(j,i)%r1, dtarg2(j,i)%r1)) then
3241 
           ! Error #368
3242 
           errors(368) = .true.
3243 
        endif
3244 
 
3245 
        ipte2(j,i) = i
3246 
        if (intne(ipte2(j,i), itarg2(j,i))) then
3247 
           ! Error #369
3248 
           errors(369) = .true.
3249 
        endif
3250 
 
3251 
        itarg2(j,i) = -ipte2(j,i)
3252 
        if (intne(ipte2(j,i), itarg2(j,i))) then
3253 
           ! Error #370
3254 
           errors(370) = .true.
3255 
        endif
3256 
 
3257 
        rpte2(j,i) = i * (-2.0)
3258 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
3259 
           ! Error #371
3260 
           errors(371) = .true.
3261 
        endif
3262 
 
3263 
        rtarg2(j,i) = i * (-3.0)
3264 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
3265 
           ! Error #372
3266 
           errors(372) = .true.
3267 
        endif
3268 
 
3269 
        chpte2(j,i) = 'a'
3270 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
3271 
           ! Error #373
3272 
           errors(373) = .true.
3273 
        endif
3274 
 
3275 
        chtarg2(j,i) = 'z'
3276 
        if (chne(chpte2(j,i), chtarg2(j,i))) then
3277 
           ! Error #374
3278 
           errors(374) = .true.
3279 
        endif
3280 
 
3281 
        ch8pte2(j,i) = 'aaaaaaaa'
3282 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
3283 
           ! Error #375
3284 
           errors(375) = .true.
3285 
        endif
3286 
 
3287 
        ch8targ2(j,i) = 'zzzzzzzz'
3288 
        if (ch8ne(ch8pte2(j,i), ch8targ2(j,i))) then
3289 
           ! Error #376
3290 
           errors(376) = .true.
3291 
        endif
3292 
        do k=1,o
3293 
           dpte3(k,j,i)%i2(1+mod(i,5))=i
3294 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
3295 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
3296 
              ! Error #377
3297 
              errors(377) = .true.
3298 
           endif
3299 
 
3300 
           dtarg3(k,j,i)%i2(1+mod(i,5))=2*dpte3(k,j,i)%i2(1+mod(i,5))
3301 
           if (intne(dpte3(k,j,i)%i2(1+mod(i,5)), &
3302 
                dtarg3(k,j,i)%i2(1+mod(i,5)))) then
3303 
              ! Error #378
3304 
              errors(378) = .true.
3305 
           endif
3306 
 
3307 
           ipte3(k,j,i) = i
3308 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
3309 
              ! Error #379
3310 
              errors(379) = .true.
3311 
           endif
3312 
 
3313 
           itarg3(k,j,i) = -ipte3(k,j,i)
3314 
           if (intne(ipte3(k,j,i), itarg3(k,j,i))) then
3315 
              ! Error #380
3316 
              errors(380) = .true.
3317 
           endif
3318 
 
3319 
           rpte3(k,j,i) = i * 2.0
3320 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
3321 
              ! Error #381
3322 
              errors(381) = .true.
3323 
           endif
3324 
 
3325 
           rtarg3(k,j,i) = i * 3.0
3326 
           if (realne(rpte3(k,j,i), rtarg3(k,j,i))) then
3327 
              ! Error #382
3328 
              errors(382) = .true.
3329 
           endif
3330 
 
3331 
           chpte3(k,j,i) = 'a'
3332 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
3333 
              ! Error #383
3334 
              errors(383) = .true.
3335 
           endif
3336 
 
3337 
           chtarg3(k,j,i) = 'z'
3338 
           if (chne(chpte3(k,j,i), chtarg3(k,j,i))) then
3339 
              ! Error #384
3340 
              errors(384) = .true.
3341 
           endif
3342 
 
3343 
           ch8pte3(k,j,i) = 'aaaaaaaa'
3344 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
3345 
              ! Error #385
3346 
              errors(385) = .true.
3347 
           endif
3348 
 
3349 
           ch8targ3(k,j,i) = 'zzzzzzzz'
3350 
           if (ch8ne(ch8pte3(k,j,i), ch8targ3(k,j,i))) then
3351 
              ! Error #386
3352 
              errors(386) = .true.
3353 
           endif
3354 
        end do
3355 
     end do
3356 
  end do
3357 
 
3358 
  rtarg3 = .5
3359 
  ! Vector syntax
3360 
  do, i=1,n
3361 
     ipte3 = i
3362 
     rpte3 = rpte3+1
3363 
     do, j=1,m
3364 
        do k=1,o
3365 
           if (intne(itarg3(k,j,i), i)) then
3366 
              ! Error #387
3367 
              errors(387) = .true.
3368 
           endif
3369 
 
3370 
           if (realne(rtarg3(k,j,i), i+.5)) then
3371 
              ! Error #388
3372 
              errors(388) = .true.
3373 
           endif
3374 
        end do
3375 
     end do
3376 
  end do
3377 
 
3378 
end subroutine ptr12
3379 
 
3380 
! Misc
3381 
subroutine ptr13(nnn,mmm)
3382 
  common /errors/errors(400)
3383 
  logical :: errors, intne, realne, chne, ch8ne
3384 
  integer :: nnn,mmm
3385 
  integer :: i,j
3386 
  integer, parameter :: n = 9
3387 
  integer, parameter :: m = 10
3388 
  integer itarg1 (n)
3389 
  integer itarg2 (m,n)
3390 
  real rtarg1(n)
3391 
  real rtarg2(m,n)
3392 
 
3393 
  integer ipte1
3394 
  integer ipte2
3395 
  real rpte1
3396 
  real rpte2
3397 
 
3398 
  dimension ipte1(n)
3399 
  dimension rpte2(mmm,nnn)
3400 
 
3401 
  pointer(iptr4,ipte1)
3402 
  pointer(iptr5,ipte2)
3403 
  pointer(iptr7,rpte1)
3404 
  pointer(iptr8,rpte2)
3405 
 
3406 
  dimension ipte2(mmm,nnn)
3407 
  dimension rpte1(n)
3408 
 
3409 
  iptr4 = loc(itarg1)
3410 
  iptr5 = loc(itarg2)
3411 
  iptr7 = loc(rtarg1)
3412 
  iptr8 = loc(rtarg2)
3413 
 
3414 
  do, i=1,n
3415 
     ipte1(i) = i
3416 
     if (intne(ipte1(i), itarg1(i))) then
3417 
        ! Error #389
3418 
        errors(389) = .true.
3419 
     endif
3420 
 
3421 
     itarg1(i) = -ipte1(i)
3422 
     if (intne(ipte1(i), itarg1(i))) then
3423 
        ! Error #390
3424 
        errors(390) = .true.
3425 
     endif
3426 
 
3427 
     rpte1(i) = i * 5.0
3428 
     if (realne(rpte1(i), rtarg1(i))) then
3429 
        ! Error #391
3430 
        errors(391) = .true.
3431 
     endif
3432 
 
3433 
     rtarg1(i) = i * (-5.0)
3434 
     if (realne(rpte1(i), rtarg1(i))) then
3435 
        ! Error #392
3436 
        errors(392) = .true.
3437 
     endif
3438 
 
3439 
     do, j=1,m
3440 
        ipte2(j,i) = i
3441 
        if (intne(ipte2(j,i), itarg2(j,i))) then
3442 
           ! Error #393
3443 
           errors(393) = .true.
3444 
        endif
3445 
 
3446 
        itarg2(j,i) = -ipte2(j,i)
3447 
        if (intne(ipte2(j,i), itarg2(j,i))) then
3448 
           ! Error #394
3449 
           errors(394) = .true.
3450 
        endif
3451 
 
3452 
        rpte2(j,i) = i * (-2.0)
3453 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
3454 
           ! Error #395
3455 
           errors(395) = .true.
3456 
        endif
3457 
 
3458 
        rtarg2(j,i) = i * (-3.0)
3459 
        if (realne(rpte2(j,i), rtarg2(j,i))) then
3460 
           ! Error #396
3461 
           errors(396) = .true.
3462 
        endif
3463 
 
3464 
     end do
3465 
  end do
3466 
end subroutine ptr13
3467 
 
3468 
 
3469 
! Test the passing of pointers and pointees as parameters
3470 
subroutine parmtest
3471 
  integer, parameter :: n = 12
3472 
  integer, parameter :: m = 13
3473 
  integer iarray(m,n)
3474 
  pointer (ipt,iptee)
3475 
  integer iptee (m,n)
3476 
 
3477 
  ipt = loc(iarray)
3478 
  !  write(*,*) "loc(iarray)",loc(iarray)
3479 
  call parmptr(ipt,iarray,n,m)
3480 
  !  write(*,*) "loc(iptee)",loc(iptee)
3481 
  call parmpte(iptee,iarray,n,m)
3482 
end subroutine parmtest
3483 
 
3484 
subroutine parmptr(ipointer,intarr,n,m)
3485 
  common /errors/errors(400)
3486 
  logical :: errors, intne
3487 
  integer :: n,m,i,j
3488 
  integer intarr(m,n)
3489 
  pointer (ipointer,newpte)
3490 
  integer newpte(m,n)
3491 
  ! write(*,*) "loc(newpte)",loc(newpte)
3492 
  ! write(*,*) "loc(intarr)",loc(intarr)
3493 
  ! write(*,*) "loc(newpte(1,1))",loc(newpte(1,1))
3494 
  ! newpte(1,1) = 101
3495 
  ! write(*,*) "newpte(1,1)=",newpte(1,1)
3496 
  ! write(*,*) "intarr(1,1)=",intarr(1,1)
3497 
  do, i=1,n
3498 
     do, j=1,m
3499 
        newpte(j,i) = i
3500 
        if (intne(newpte(j,i),intarr(j,i))) then
3501 
           ! Error #397
3502 
           errors(397) = .true.
3503 
        endif
3504 
 
3505 
        call donothing(newpte(j,i),intarr(j,i))
3506 
        intarr(j,i) = -newpte(j,i)
3507 
        if (intne(newpte(j,i),intarr(j,i))) then
3508 
           ! Error #398
3509 
           errors(398) = .true.
3510 
        endif
3511 
     end do
3512 
  end do
3513 
end subroutine parmptr
3514 
 
3515 
subroutine parmpte(pointee,intarr,n,m)
3516 
  common /errors/errors(400)
3517 
  logical :: errors, intne
3518 
  integer :: n,m,i,j
3519 
  integer pointee (m,n)
3520 
  integer intarr (m,n)
3521 
  !  write(*,*) "loc(pointee)",loc(pointee)
3522 
  !  write(*,*) "loc(intarr)",loc(intarr)
3523 
  !  write(*,*) "loc(pointee(1,1))",loc(pointee(1,1))
3524 
  !  pointee(1,1) = 99
3525 
  !  write(*,*) "pointee(1,1)=",pointee(1,1)
3526 
  !  write(*,*) "intarr(1,1)=",intarr(1,1)
3527 
 
3528 
  do, i=1,n
3529 
     do, j=1,m
3530 
        pointee(j,i) = i
3531 
        if (intne(pointee(j,i),intarr(j,i))) then
3532 
           ! Error #399
3533 
           errors(399) = .true.
3534 
        endif
3535 
 
3536 
        intarr(j,i) = 2*pointee(j,i)
3537 
        call donothing(pointee(j,i),intarr(j,i))
3538 
        if (intne(pointee(j,i),intarr(j,i))) then
3539 
           ! Error #400
3540 
           errors(400) = .true.
3541 
        endif
3542 
     end do
3543 
  end do
3544 
end subroutine parmpte
3545 
 
3546 
! Separate function calls to break Cray pointer-indifferent optimization
3547 
logical function intne(ii,jj)
3548 
  integer :: i,j
3549 
  common /foo/foo
3550 
  integer foo
3551 
  foo = foo + 1
3552 
  intne = ii.ne.jj
3553 
  if (intne) then
3554 
     write (*,*) ii," doesn't equal ",jj
3555 
  endif
3556 
end function intne
3557 
 
3558 
logical function realne(r1,r2)
3559 
  real :: r1, r2
3560 
  common /foo/foo
3561 
  integer foo
3562 
  foo = foo + 1
3563 
  realne = r1.ne.r2
3564 
  if (realne) then
3565 
     write (*,*) r1," doesn't equal ",r2
3566 
  endif
3567 
end function realne
3568 
 
3569 
logical function chne(ch1,ch2)
3570 
  character :: ch1, ch2
3571 
  common /foo/foo
3572 
  integer foo
3573 
  foo = foo + 1
3574 
  chne = ch1.ne.ch2
3575 
  if (chne) then
3576 
     write (*,*) ch1," doesn't equal ",ch2
3577 
  endif
3578 
end function chne
3579 
 
3580 
logical function ch8ne(ch1,ch2)
3581 
  character*8 :: ch1, ch2
3582 
  common /foo/foo
3583 
  integer foo
3584 
  foo = foo + 1
3585 
  ch8ne = ch1.ne.ch2
3586 
  if (ch8ne) then
3587 
     write (*,*) ch1," doesn't equal ",ch2
3588 
  endif
3589 
end function ch8ne
3590 
 
3591 
subroutine donothing(ii,jj)
3592 
  common/foo/foo
3593 
  integer :: ii,jj,foo
3594 
  if (foo.le.1) then
3595 
     foo = 1
3596 
  else
3597 
     foo = foo - 1
3598 
  endif
3599 
  if (foo.eq.0) then
3600 
     ii = -1
3601 
     jj = 1
3602 
!     print *,"Test did not run correctly"
3603 
     call abort()
3604 
  endif
3605 
end subroutine donothing
3606 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.