Verzweigungen und Schleifen

if (bedingung) then ... else if ... else ... end if verzweigt. Vergleiche schreibst du als ==, /=, <, > (oder alt .eq., .ne.), verknüpft mit .and., .or. und .not.. Mit select case wählst du zwischen Fällen.

Zählschleifen heißen do i = 1, 10 und enden mit end do; Fortran zählt standardmäßig ab 1 und schließt das Ende ein. Mit do while (bedingung) läuft eine Schleife bedingungsabhängig, exit bricht ab, cycle springt zur nächsten Runde.

program schleifen
    implicit none
    integer :: i, summe

    summe = 0
    do i = 1, 10
        if (mod(i, 2) == 0) then
            summe = summe + i
        end if
    end do
    print *, "Summe der geraden Zahlen:", summe

    do i = 1, 3
        print *, "Runde", i
    end do
end program schleifen