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 ÖÐÕâôÓÃÒ²ÊDz»ÕýÈ·µÄ°¡£¬ data ±ØÐë³öÏÖÔÚËùÓпÉÖ´ÐгÌÐò֮ǰ¡­¡­

ÄãµÄÕâÖÖÇé¿öÖ±½Ó num = 3 ¾Í¿ÉÒÔÁË£¬ºÇºÇ¡­¡­

5Â¥: Originally posted by koorb at 2011-11-10 13:29:08:
¡°data±ØÐë³öÏÖÔÚËùÓпÉÖ´ÐгÌÐò֮ǰ¡±ÕâÖÖ˵·¨ÔÚ90ÀïÊDz»ÕýÈ·µÄ£¬ÔÚ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

...