Il Linguaggio Fortran 90/95

1.5 Istruzioni di assegnazione ed espressioni 43
"Adamo" > "Eva"
è falsa in quanto in qualunque sequenza di collating la lettera A precede sempre la E, ossia A è
minore di E. Allo stesso modo, la relazione:
"Eva" < "Evaristo"
è vera poiché la stringa Eva viene prolungata con cinque caratteri vuoti e la relazione fra le due
stringhe si riduce alla relazione:
" " < "r"
e il carattere nullo precede tutti i caratteri alfanumerici.
Si noti, tuttavia, che le relazioni:
"ADAMO" < "Adamo"
"X4" < "XA"
"var_1" < "var-1"
non sono definite in Fortran ed il valore di ciascuna di esse dipende dalla particolare sequenza
di collating implementata dal processore in uso. Questo significa che lo standard del linguaggio
non definisce alcun ordine relativo tra cifre e lettere, fra lettere minuscole e maiuscole, e fra gli
elementi del set di caratteri speciali.
Se, per ragioni di portabilità, fosse richiesta la definizione di un ordine per tutti i caratteri
allora è necessario fare uso di un altro metodo di confronto. Questo nuovo metodo si basa
sull’utilizzo di quattro funzioni intrinseche lessicali: LGT, LGE, LLE, LLT, la cui sintassi è:
LGT(STRING_A,STRING_B)
LGE(STRING_A,STRING_B)
LLE(STRING_A,STRING_B)
LLT(STRING_A,STRING_B)
ed il cui significato è, rispettivamente:
STRING_A > STRING_B
STRING_A >= STRING_B
STRING_A "eva"
non è univocamente definito dallo standard ma dipende dal particolare processore, l’espressione:
LGT("Eva","eva")
darà sempre valore .FALSE. in quanto nella sequenza di collating ASCII le lettere maiuscole
precedono sempre quelle minuscole (l’ordinamento lessicografico ASCII è riportato in Appendice
A).