program main
implicit none
integer :: year
write(*,*) "请输入年份:"
read(*,*) year
if ( (mod(year,4))==0 .or. (mod(year,400)==0 .and. mod(year,100)==0) ) then
write(*,"('该年是闰年,且一年有'I3'天' )" ) '366'
else
write(*,"('该年不是闰年,一年有'I3'天' )" ) '365'
end if
stop
end
fcode 发表于 2015-7-23 19:01
在我这里去掉引号以后是可以正常输出的。不知道你用的什么编译器?
fcode 发表于 2015-7-24 12:52
换一个编译器吧。这垃圾编译器,早该淘汰了。
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |