Zeichenketten in Fortran haben eine Art Sonderstellung. Die Sprache war nicht dafür gedacht mit Zeichenketten umzugehen, was sich später ändern musste, da viele Anwender nicht mehr an der Lösung einer mathematischen Aufgabe interessiert waren, sondern Programme bedienen wollten.

In C ist es üblich Zeichenketten mit einem Nullbyte (\0) abzuschließen. In Fortran werden Zeichenketten mit Leerzeichen aufgefüllt.

Eine Zeichenkette wird genauso wie eine normale Variable definiert, allerdings wird anstelle der Länge des Datentyps, nach dem Stern die Länge der Zeichenkette angegeben.

  ! definiere eine Zeichnekette der Länge 8 Zeichen
  CHARACTER*8 a
  ! vergleiche dazu: Integer mit 8 Byte Genauigkeit
  INTEGER*8 b

Wollen Sie mehrere Zeichenketten unterschiedlicher Länge gleichzeitig anlegen, geht das so:

  CHARACTER a*8, b*6;

Folgendermaßen kann (und sollte) eine Zeichenkette initialisiert werden:

  CHARACTER*7 :: a = "EinWort"
  CHARACTER*7 :: b
  ! oder
  b = "EinWort"

Als Hollerithkonstante wird die Angabe einer Zeichenkette nach folgendem Muster bezeichnet:

<Länge>h<Zeichenkette>

Dabei wird die Länge der Zeichenkette vor dem Buchstaben h angegeben, nach dem h folgt dann die eigentliche Zeichenkette. Diese Art der Angabe kann beim Initialisieren von Zeichenketten verwendet werden, bspw:

  CHARACTER*8 a /8hdiesiste/

Der gfortran Compiler merkt an, dass die Angabe einer Zeichenkette als Hollerithkonstante veraltet ist.

In Fortran ist möglich auf Elemente einer Zeichenkette zuzugreifen, wie auf die eines Feldes, dh. es ist möglich auf einzelne Elemente zuzugreifen (und die bspw. zu überschreiben) oder auf ganze Teile der Zeichenkette:

  CHARACTER*10 :: a = "EinTestEin"
 
  a(1:1) = "e"
  a(4:7) = "fach"
 
  write (*,*) a

Ausgabe:

 einfachEin

In Fortran gibt es zwei Funktionen um die Länge von Zeichenketten zu bestimmen. Zum einen LEN, zum anderen LEN_TRIM. LEN gibt die Anzahl an vereinbarten Zeichen zurück, dh. die Zahl, die nach dem Stern bei der Variablendeklaration steht bzw. stand. LEN_TRIM liefert die Länge des Zeichenkette zurück, dh. abzüglich der abschließenden Leerzeichen.

In Fortran ist es wie oben beschrieben zunächst nur möglich konstant lange Zeichenketten zu definieren. Manchmal ist es aber notwendig Zeichenketten zu verlängern oder zu verkürzen. Dazu kann ALLOCATE verwendet werden. Mehr dazu im Kapitel dynamische Speicherverwaltung.

In einer offiziellen Spracherweiterung zu Fortran 90, wurden auch Zeichenketten variabler Länge eingeführt. So genannte varying_strings. Mehr zu diesem Thema finden Sie unter WikiBooks.org.

Übergibt man Zeichenketten an Unterprogramme, so wird als letzter unsichtbarer Parameter die festgelegte Länge der Zeichenkette übergeben. Dh. im Unterprogramm liefert auch LEN die korrekte Länge der Zeichenkette. Als Länge der Zeichenkette im Unterprogramm kann dann (*) angegeben werden:

string.F90

program main
  CHARACTER :: a*14 = "DiesIstEinTest"
 
  write (*,*) LEN(a)
  call up ( a );
end program
 
subroutine up ( a )
  CHARACTER*(*) a
 
  write (*,*) LEN(a)
  write (*,*) a
end subroutine

Das Aneinanderhängen zweier Strings ist durch denn // Operator möglich. Bspw:

  CHARACTER*11 url
  CHARACTER*7 name
  CHARACTER*4 dot
 
  name = "proggen"
  dot = ".org"
 
  url = name // dot
  write (*,*) url
  write (*,*) name // dot

Für Zeichenketten existieren vordefinierte Funktionen, die dem Programmierer einiges an Arbeit abnehmen.