Vergleichsoperatoren
Mit Vergleichsoperatoren können zwei Werte geprüft werden, um zu bestimmen, ob sie gleich sind oder nicht oder ob ein Wert kleiner oder größer ist als der andere. Alle Vergleichsoperatoren benötigen zwei Operanden. Ein Vergleichsausdruck hat die folgende Form:
operand1 relational_operator operand2
Mit einer Ausnahme können nur Operanden des gleichen Datentyps miteinander verglichen werden. Wenn ein Operand ein ganzzahliger Wert und der andere Operand eine reelle Zahl ist, wird der ganzzahlige Wert in eine reelle Zahl konvertiert, bevor verglichen wird.
Wildcards können in den Zeichenfolgevergleichen auf Gleichheit oder der Ungleichheit verwendet werden. Beispielsweise entspricht die Zeichenfolge ""ELEC*"" jeder möglichen Zeichenfolge, die mit den Zeichen ELEC. anfängt. Ebenso entspricht ""*PLUMB*"" jeder möglichen Zeichenfolge, die die Teilkette PLUMB enthält. Die folgenden Zeichen haben eine besondere Bedeutung bei den Vergleichen mit Zeichenfolge-Schlüsselwörtern:
| Zeichen | Funktion |
|---|---|
| * | entspricht null oder mehr Vorkommen eines Zeichens |
| ? | entspricht genau einem Vorkommen eines Zeichens |
| \ | zeigt an, dass das folgende Zeichen als tatsächliches Zeichen und nicht als Sonderzeichen behandelt werden soll. Das heißt, es deaktiviert die besondere Bedeutung des Sternchens (*) und des Fragezeichens (?). |
Das Ergebnis eines Vergleichsausdrucks hat den Wert true, wenn die Bedingung erfüllt ist, und falsch, wenn die Bedingung nicht erfüllt ist. Die folgende Liste beschreibt die Vergleichsoperatoren sowie beispielhafte Vergleichsausdrücke:
| Operator | Ergebnis |
|---|---|
| .EQ. , EQ , oder == | true, wenn operand1 und operand2 gleich sind |
| .NE. , NE oder <> | true, wenn operand1 und operand2 nicht gleich sind |
| .GE. , GE , oder >= | true, wenn operand1 größer als oder gleich operand2 ist |
| .LE. , LE oder <= | true, wenn operand1 kleiner als oder gleich operand2 ist |
| .GT. , GT oder > | true nur wenn operand1 größer als operand2 ist |
| .LT. , LT oder < | true nur wenn operand1 kleiner als operand2 ist |
Beispiele: