HELP ME - HOW THIS ERROR?

error 250 - You cannot assign an expression of type REAL(KIND=1) to a
variable of type TYPE(LISTA)

Subroutine P (parola)
use Var;
character(50)::parola,g;
type(Lista),pointer ::h;
integer:: k;
....
h = RicercaParola(vett(k),parola); <-error is here
....


!Funzione di ricerca della parola nella lista
Function RicercaParola(i,parola) result (RicPar)
use Var;
type(Lista):: i;
type(Lista),pointer :: RicPar;
character(50)::parola;

!Se i = null nessuna parola con quella iniziale è già stata inserita
if((i%p%sParola) == '') then
nullify(RicPar);

return
end if

do while(ichar(i%p%sParola(1:))==ichar(parola(1:)))
!Comparazione parola
if (i%p%sParola==parola) then
!La parola è stata trovata
RicPar=i;
else
i=i%Next
end if
if (.not. associated(i)) then
nullify(RicPar);
!RicPar = 0;
end if
end do
end function


.