program fibTest use fibonacci do i = 0, 10 print *, fibr(i), fibi(i) end do end program fibTest