Commit a618877c authored by Bruce Cowan's avatar Bruce Cowan

Allocatable array

parent 35a7e093
......@@ -2,13 +2,14 @@ program prob2
implicit none
integer, dimension(1000) :: fibs = 0
integer, allocatable, dimension(:) :: fibs
integer :: target
integer :: current
integer :: total = 0
integer :: length
integer :: length
integer :: i
allocate(fibs(2))
fibs(1:2) = [1, 2]
length = 2
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment