Il Linguaggio Fortran 90/95

62 Tipi ed espressioni
risulta corretta se la costante con nome greek è posta pari al valore del parametro di kind che
identifica un set di caratteri che supporti i simboli dell’alfabeto greco. Allo stesso modo, se
il valore del parametro di kind che identifica tale set di caratteri fosse 12, la costante stringa
precedente potrebbe essere scritta equivalentemente come:
12_αβγ
Dal momento che compilatori diversi possono assegnare valori differenti (e, comunque, arbitrari)
ai parametri di kind, può essere utile ”interrogare” il proprio compilatore con un programmino
del tipo seguente allo scopo proprio di conoscere quantomeno i parametri di kind
degli oggetti di tipo intrinseco di default:
PROGRAM parametri_kind
IMPLICIT NONE
INTEGER :: int=1
REAL :: real=1.0
CHARACTER(LEN=1) :: char="y"
LOGICAL :: logic=.TRUE.
COMPLEX :: compl=(1.0,2.0)
!
PRINT*, "Parametri di kind di default per i tipi: "
PRINT*, " INTEGER: ", KIND(int)
PRINT*, " REAL : ", KIND(real)
PRINT*, " CHARACTER: ", KIND(char)
PRINT*, " LOGICAL: ", KIND(logic)
PRINT*, " COMPLEX: ", KIND(compl)
END PROGRAM parametri_kind
A titolo di esempio, compilando su un PC questo programma con l’Intel Fortran Compiler 4.5
si ottiene il seguente output:
Intel Fortran Compiler 4.5
Parametri di kind di default per i tipi:
INTEGER: 4
REAL : 4
CHARACTER: 1
LOGICAL: 4
COMPLEX: 4
mentre l’Imagine1/NAGWare F Compiler (Release 20001002) fornisce il risultato che segue:
INTEGER: 3
REAL : 1
CHARACTER: 1
LOGICAL: 3
COMPLEX: 1
Come si può notare, i valori attribuiti ai parametri di kind sono completamente diversi.