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

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。请指点一下！谢谢！