Trailing-Edge
-
PDP-10 Archives
-
fortv11
-
v7do.for
There are 9 other files named v7do.for in the archive. Click here to see a list.
PROGRAM V7DO
C COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1982, 1986
C ALL RIGHTS RESERVED.
C
C THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
C ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
C INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
C COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
C OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
C TRANSFERRED.
C
C THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
C AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
C CORPORATION.
C
C DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
C SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
C August 1981
C CDM
C Test for version 7 DO loops. Increment variables should
C retain their value after the DO loop has executed.
INTEGER IIII(2)
C-100-
J=0
DO 100 I=1,10
J=J+1
100 CONTINUE
IF (J.NE.10) TYPE 110,J
110 FORMAT(' ?Error 110. DO loop only executed 'I4' times.')
IF (I.NE.11) TYPE 120,I
120 FORMAT(' ?Error 120. I='I4', should = 11')
C-200-
M=-4
INCR=-3
N=0
DO 200 J=M,-10,INCR
KVAL=KVAL+J
DO 200 JJJJ=N+1,2
IIII(JJJJ)=JJJJ
JVAL=JVAL+JJJJ
200 CONTINUE
IF (KVAL.NE.-21) TYPE 210,KVAL
IF (J.NE.-13) TYPE 220,J
IF (JVAL.NE.9) TYPE 230,JVAL
IF (JJJJ.NE.3) TYPE 240,JJJJ
210 FORMAT(' ?Error 210. KVAL='I4', should =-21')
220 FORMAT(' ?Error 220. J='I4', should =-13')
230 FORMAT(' ?Error 230. JVAL='I4', should =9')
240 FORMAT(' ?Error 240. JJJJ='I4', should =3')
END