freie Source-Form

keine Spaltenabhängigkeit

X = (-Y + ROOT_OF_DISCRIMINANT) / (2.0*A) ! oder negatives Vorzeichen

mehr Zeichen erlaubt

IF (X <= Y) THEN A = 0        ! huebsche neue Zeichen

Verlängerung von Zeilen

! schoener geht's auch so:
X =                                     &
      (-Y + ROOT_OF_DISCRIMINANT)       &
      / (2.0*A)

! und lange Strings (z.B.):
PROFESSION = "Donaudampfschiffahrts&
             &gesellschaftskapitaen"
PRINT*, Profession                      ! Groß oder klein ?