Update fib.f03

Code optimizaton
johnyhi · Sep 28, 2018 · 5cdd5ca · 5cdd5ca
1 parent eb8e9c0
commit 5cdd5ca
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/fib.f03 b/fib.f03
@@ -1,15 +1,15 @@
 program fibonacci
     implicit none
 
-    write(*,*) fib_rec(47)
+    write(*,*) fib_rec(46)
 
     contains
     recursive function fib_rec(n) result(fib)
 	integer, intent(in), value :: n
 	integer*8                  :: fib
 
 	if (n <= 1) then
-		fib = n
+		fib = 1
 	else
 		fib = fib_rec(n - 1) + fib_rec(n - 2)
 	end if