Google
 

Trailing-Edge - PDP-10 Archives - BB-D480F-SB_FORTRAN10_V10 - 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, 1985
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