Schleifenkontrolle mit EXIT und CYCLE
DO I=1, 100 IF (C(I) == 0) EXIT ! Schleife verlassen A(I) = B(I)/C(I) IF (D(I) < 0) CYCLE ! naechste Iteration A(I) = A(I) * SQRT(D(I)) ENDDO
Endlos-Schleifen
DO ! Endlos-Schleife C(I) = 42.0 IF (X(I) < 0) EXIT ! Abbruch-Kriterium A(I) = X(I) ENDDO
Auswahl von Fällen mit Schalter
SELECT CASE (switch) ! switch: integer, character, logical CASE(42) PRINT*, 'Bingo' CASE(1-9, 11, 13, 17, 19) PRINT*, 'auch nicht schlecht' CASE DEFAULT PRINT*, 'na ja' END SELECT