Hello:
The following is my programe:
What wrong with it?
The program is in fixed format of fortran,and compiled on Ms PW 4.0!
Thanks;
type Stream
real a
end type Stream
type (Stream)B
B.a=1
call A(B)
end
subroutine A(B)
type (Stream)B
write(*,*)B.a
return
end
--http://www.eyou.com
--稳定可靠的免费电子信箱 语音邮件 移动书签 日历服务 网络存储...亿邮未尽
|