program Fibonacci
	implicit none
	
	integer :: i
	integer, dimension(10) :: fib_nb

	fib_nb(1) = 1
	fib_nb(2) = 1

	do i = 3, 10
		fib_nb(i) = fib_nb(i-1) + fib_nb(i-2)
	end do

	do i = 1, 10
		print *, fib_nb(i)
	end do
contains
	recursive function fib(n) result(fib_)
		integer, intent(in) :: n
		integer :: fib_

		if (n == 1) then
			fib_ = 1
		else if (n == 1) then
			fib_ = 1
		else
			fib_ = fib(n-1) + fib(n-2)
		end if
	end function fib
end program Fibonacci