填空題

下列程序的運行結(jié)果是（）。
Program test
Implicit none
Integer::i
Integer::a(5)
Forall ( i=1:5 )
A(I)=5
End forall
Write(,)a
Stop
end

答案： 55555

你可能感興趣的試題

二維數(shù)組在內(nèi)存中的存儲順序為（）

答案： 1324

下列程序的運行結(jié)果是（）。
Program main
implicit none
integer, target :: a=1
integer, pointer :: p
p=>a
p=3
write(,)a
end

答案： 3