HP Fortran Programmer's Reference

DO j = i+1, 100
IF (scores(i) > scores(j)) THEN
temp = scores(i)
scores(i) = scores(j)
scores(j) = temp
END IF
END DO
END DO
Execution control
Control constructs and statement blocks
The following example uses the older syntactic form. Note that, unlike the newer form,
old-style nested DO loops can share the same terminal statement:
DO 10 i = 1, 99
DO 10 j = i+1, 100
if (scores(i)