[size=4]program main
implicit none
character date,pro
write(*,*)"请输入date(如'星期二'):"
read(*,*)date
select case(date)
case("星期一","星期四")
pro="新闻"
case("星期二","星期五")
pro="电视剧"
case("星期三","星期六")
pro="卡通片"
case default
pro="电影"
end select
write(*,"('节目:',A100)")pro
stop 
end[/size]
以上代码编译链接都没什么问题，可是执行是却输出的是“？”
是什么原因啊？