Meins

 recursive function fibo_rekursiv(z) result (n)
 implicit none
 integer, intent (in):: z
 integer::n


 if(z==0)then
  n=0
 elseif(z==1)then
  n=1
 else
  n=fibo_rekursiv(z-1)+fibo_rekursiv(z-2)
 end if
end function fibo_rekursiv