8 lines
117 B
FortranFixed
8 lines
117 B
FortranFixed
|
program fibTest
|
||
|
|
use fibonacci
|
||
|
|
|
||
|
|
do i = 0, 10
|
||
|
|
print *, fibr(i), fibi(i)
|
||
|
|
end do
|
||
|
|
end program fibTest
|