Google
 

Trailing-Edge - PDP-10 Archives - BB-D480C-SB_1981 - do.for
There are 11 other files named do.for in the archive. Click here to see a list.
	PROGRAM DO

! This software is furnished under a license and may only be used
! or copied in accordance with the terms of such license.

! Copyright (C) 1981 by Digital Equipment Corporation

!	Version 6	DO.FOR	March 81

!	Basic testing of DO loops.
!	The number of times the loop is executed is counted
!	then checked.

	ICOUNT=0
	DO 100 I=1,10
	ICOUNT=ICOUNT+1
100	CONTINUE
	IF (ICOUNT.NE.10) TYPE 110,ICOUNT
110	FORMAT(' ?Error line 100 ICOUNT='I6', should =10.')

	ICOUNT=0
	DO 200 I=100,11,-1
	ICOUNT=ICOUNT+1
200	CONTINUE
	IF (ICOUNT.NE.90) TYPE 210,ICOUNT
210	FORMAT(' ?Error line 200 ICOUNT='I6', should = 90.')


!	Simple implied DO loops and repeating Formats

300	WRITE(23,310) (I, I=1,20,2)
310	FORMAT(I)
	CLOSE(23)

	IEXPT=1
	DO 320 I=1,10
	READ(23,310) IVAR
	IF (IVAR.NE.IEXPT) TYPE 330,IVAR,IEXPT
	IEXPT=IEXPT+2
320	CONTINUE
330	FORMAT(' ?Error line 300 - Implied Do loops.')

	STOP
	END