- 积分
- 3220
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-7-20
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
program ex021
implicit none
integer,parameter::fileid=10
character(len=20)::filename="list.bin"
integer player
real::hit(9)=(/3.2,2.8,3.3,3.2,2.9,2.7,2.2,2.3,1.9/)
open(unit=fileid, file=filename,form="unformatted", &
access="direct", recl=1, status="replace")
do player=1,9
write(fileid,rec=player)hit(player)
end do
close(fileid)
end program
~
~
~
"ex021.f" 16L, 456C written
[zqq0ew0@localhost exam]$ pgf90 -o ex021.exe ex021.f
PGF90-S-0023-Syntax error - unbalanced parentheses (ex021.f: 8)
PGF90-S-0023-Syntax error - unbalanced parentheses (ex021.f: 9)
0 inform, 0 warnings, 2 severes, 0 fatal for ex021
这个什么情况啊??
|
|