Integer, External :: fibonacci
Do I = 1, 5
Print *, fibonacci()
End Do
End
Integer Function fibonacci()
Integer, Save :: i1=1, i2=1
fibonacci = i1
next_i2 = i2 + i1
i1 = i2
i2 = next_i2
End Function
Execution Results1
1
2
3
5
<Example Program>
| Program save_example Integer, External :: fibonacci Do I = 1, 5 Print *, fibonacci() End Do End Integer Function fibonacci() Integer, Save :: i1=1, i2=1 fibonacci = i1 next_i2 = i2 + i1 i1 = i2 i2 = next_i2 End Function |
|
| Execution Results 1 1 2 3 5 |
|