Il Linguaggio Fortran 90/95

5.17 Overloading 287
INTERFACE OPERATOR (operatore_intrinseco)
corpo dell’interfaccia
END INTERFACE
dove operatore_intrinseco è l’operatore cui applicare l’overloading mentre con l’espressione
corpo dell’interfaccia si è indicato una function con uno o due argomenti aventi attributo
INTENT(IN).
Ad esempio, l’operatore di addizione, ”+”, potrebbe essere esteso alle variabili di tipo carattere
al fine di concatenare due stringhe ignorando ogni eventuale spazio bianco di coda, e
questa estensione potrebbe essere efficacemente inserita in un modulo:
MODULE overloading_addizione
IMPLICIT NONE
...
INTERFACE OPERATOR (+)
MODULE PROCEDURE concat
END INTERFACE
...
CONTAINS
FUNCTION concat(cha,chb)
IMPLICIT NONE
CHARACTER (LEN=*), INTENT(IN) :: cha, chb
CHARACTER (LEN=(LEN_TRIM(cha) + LEN_TRIM(chb))) :: concat
concat = TRIM(cha)//TRIM(chb)
END FUNCTION concat
...
END MODULE overloading_addizione
In una qualsiasi unità di programma che usi il modulo overloading_addizione, l’espressione
cha+chb è perfettamente interpretata come una operazione di concatenamento di stringhe.
Un altro esempio, sempre relativo alle variabili di tipo stringa, potrebbe essere quello di
definire una operazione di divisione (”/”) fra una stringa e una variabile carattere con il significato
di fornire il numero di volte che detto carattere compare all’interno della stringa. Ciò può
essere ottenuto al modo seguente:
MODULE overloading_divisione
INTERFACE OPERATOR (/)
MODULE PROCEDURE num
END INTERFACE
CONTAINS
INTEGER FUNCTION num(s,c)
CHARACTER(LEN=*), INTENT(IN) :: s
CHARACTER, INTENT(IN) :: c
num = 0
DO i=1,LEN(s)