RosettaCodeData/Task/Fibonacci-sequence/Fortran/fibonacci-sequence-5.f

program fibTest
    use fibonacci

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