Merge pull request #15 from jakubjelinek/master

HenryJin · HenryJin · commit c65fe4742705 · 2015-07-23T09:19:15.000-07:00
Fix computation of fibonacci numbers.
diff --git a/sources/Example_SIMD.7c.c b/sources/Example_SIMD.7c.c
@@ -14,7 +14,7 @@ int a[N], b[N], c[N];
 #pragma omp declare simd inbranch
 int fib( int n )
 {
-   if (n <= 2)
+   if (n <= 1)
       return n;
    else {
       return fib(n-1) + fib(n-2);
diff --git a/sources/Example_SIMD.7f.f b/sources/Example_SIMD.7f.f
@@ -21,15 +21,15 @@ program fibonacci
    end do
    
    write(*,*) "Done a(", N-1, ") = ", a(N-1)
-                        ! 44  1134903168
+                        ! 44  701408733
 end program
 
 recursive function fib(n) result(r)
 !$omp declare simd(fib) inbranch
    implicit none
    integer  :: n, r
 
-   if (n <= 2) then
+   if (n <= 1) then
       r = n
    else 
       r = fib(n-1) + fib(n-2)

Original file line number	Diff line number	Diff line change
`@@ -14,7 +14,7 @@ int a[N], b[N], c[N];`
`14`	`14`	`#pragma omp declare simd inbranch`
`15`	`15`	`int fib( int n )`
`16`	`16`	`{`
`17`		`- if (n <= 2)`
	`17`	`+ if (n <= 1)`
`18`	`18`	`return n;`
`19`	`19`	`else {`
`20`	`20`	`return fib(n-1) + fib(n-2);`