There are 11 other files named do.for in the archive. Click here to see a list.
! 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.
DO 100 I=1,10
IF (ICOUNT.NE.10) TYPE 110,ICOUNT
110 FORMAT(' ?Error line 100 ICOUNT='I6', should =10.')
DO 200 I=100,11,-1
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)
DO 320 I=1,10
IF (IVAR.NE.IEXPT) TYPE 330,IVAR,IEXPT
330 FORMAT(' ?Error line 300 - Implied Do loops.')