[Fortran90] Problema con puntatori

[Unrue]

Ho un problema con una funzione che ritorna un puntatore ad intero. Il valore ritornato non ha senso:

PROGRAM prova3
 IMPLICIT NONE 
INTEGER :: primo,secondo
INTEGER,POINTER :: punt
 WRITE (*,*) 'PRIMO NUMERO'
READ(*,*) primo
WRITE (*,*) 'SECONDO NUMERO'
READ(*,*) secondo
punt=> Somma(primo,secondo)
WRITE(*,*) 'RISULTATO :', punt
CONTAINS
 FUNCTION Somma(a,b)
     INTEGER, INTENT(IN)::a
     INTEGER, INTENT(IN)::b
     INTEGER,TARGET::c
     INTEGER,POINTER :: Somma
     c=a+b
     Somma =>c
RETURN
  END FUNCTION Somma 
END PROGRAM prova3

forse perchè c'è un problema di deallocazione..