Operatorenpriorität

Die Prioriät der arithmetischen Operatoren entspricht den mathematischen Konventionen.

• Klammerung vor allem anderen, z.B. (a+b)*c ${\displaystyle \Leftrightarrow }$ a*c+b*c
• Exponentiation vor Punktrechnung, z.B. a*b**c ${\displaystyle \Leftrightarrow }$ a*(b**c)
• Punktrechnung vor Strichrechnung, z.B. a+b*c ${\displaystyle \Leftrightarrow }$ a+(b*c)

Berechnungsfolge bei gleicher Priorität

• Klammerung, Punktrechnung und Strichrechnung: ${\displaystyle \rightarrow }$
  Beispiel: a*b/c*d${\displaystyle \Leftrightarrow }$((a*b)/c)*d
• Exponentiation: ${\displaystyle \leftarrow }$
  Beispiel: a**b**c${\displaystyle \Leftrightarrow }$ a**(b**c)

Außerdem ist zu beachten, dass niemals zwei Operatoren direkt aufeinander folgen dürfen.

Beispiel: Der Ausdruck 1.5**-1 ist in Fortran 95 falsch und führt zu einer Fehlermeldung. Richtig ist 1.5**(-1)

Operanden gleichen Datentyps

Bei Operanden gleichen Datentyps erhält das Ergebnis den Datentyp der Operanden.

Beispiel:

program bsp
  implicit none
 
  real :: a            
 
  a = 3/2
  !  3 ist ein integer und 2 ist auch ein integer,
  !  daher muss das Ergebnis auch ein integer sein, also 1.
  !  Die Zuweisung an die real-Variable a stellt das 
  !  Ergebnis nicht mehr richtig.
 
  write(*,*) a  
  ! Ausgabe: 1.00000
end program bsp

Implizite Typumwandlung bei Operanden gemischten Datentyps

Weisen die Operanden unterschiedliche Datentypen auf, so wird bei jeder Operation, falls nötig, das Ergebnis dem höherwertigen Datentyp angepasst.

integer${\displaystyle \rightarrow }$ real${\displaystyle \rightarrow }$ complex

Beispiel:

program bsp   
  implicit none 
 
  real :: a
 
  a = 3/2.
  !  2. ist ein real. Jetzt stimmt das Ergebnis.
  
  write (*,*) a 
  ! Ausgabe: 1.500000
end program bsp

Explizite Typumwandlung

Fortran 95 besitzt auch Funktionen zur expliziten Umwandlung des Datentyps. Diese werden im Kapitel Standardfunktionen näher beschrieben.

Beispiel:

program bsp
  implicit none
 
  real :: r
  complex :: c
 
  r = 2. 
  c = cmplx(r)
 
  write (*,*) c 
  ! Ausgabe: ( 2.000000 , 0.000000 )
end program bsp