您所在位置：主题：关于forall的一个程序，怎么运行出来结果与用do做的不一样
byhsr123
[专家分：0] 发布于 2012-06-25 21:39:00
program main
implicit none
integer f(10)
integer i
f(1)=0
f(2)=1
forall(i=3:10)
f(i)=f(i-1)+f(i-2)
end forall
write(*,"(10I4)") f
stop
end program
运行结果0 1 1 1 0 0 0 0 0 0
implicit none
integer f(10)
integer i
f(1)=0
f(2)=1
forall(i=3:10)
f(i)=f(i-1)+f(i-2)
end forall
write(*,"(10I4)") f
stop
end program
运行结果0 1 1 1 0 0 0 0 0 0
