program test
integer, allocatable :: num(:)
integer i
allocate (num(10))
num = (/(10, i=1,10)/)
print *, num
end program test

1楼: Originally posted by koorb at 2011-11-10 09:51:32:
Fortran代码：
integer, allocatable::num(
allocate( num(2) )
data num /2*3/
程序报错，This is an invalid DATA statement object。请指点一下！谢谢！

4楼: Originally posted by snoopyzhao at 2011-11-10 13:21:56:
即使在 Fortran 77 中这么用也是不正确的啊， data 必须出现在所有可执行程序之前……

你的这种情况直接 num = 3 就可以了，呵呵……

5楼: Originally posted by koorb at 2011-11-10 13:29:08:
“data必须出现在所有可执行程序之前”这种说法在90里是不正确的，在77里我没法验证。

7楼: Originally posted by snoopyzhao at 2011-11-10 18:39:57:
给个可以出现在可执行程序之后的例子看一下吧……

program test
integer :: num(5)
print *,  num
data num /5*3/
print *, num
end program test      

D:\>gfortran -Wall -std=f95 zvv.f90

D:\>a
           3           3           3           3           3
           3           3           3           3           3

program test
integer :: num(5)
num = 5
print *, num
data num /5*3/
print *, num
end program test      
D:\>gfortran -Wall -std=f95 zvv.f90

D:\>a
           5           5           5           5           5
           5           5           5           5           5

9楼: Originally posted by snoopyzhao at 2011-11-11 13:29:58:
可以跑得通，但不知道如何解释它们的结果：

[code]
program test
integer :: num(5)
print *,  num
data num /5*3/
print *, num
end program test      

D:\>gfortran -Wall -std=f95 zvv.f90

...