您所在位置：主题：在fortran编程时编译运行时和生成.exe文件之后运行过程不一致
bugui
[专家分：0] 发布于 2011-04-10 17:12:00
在fortran编程时编译运行时和生成.exe文件之后运行结果不同，这是什么原因啊？请各位指点。我试了好几个程序都是这样的现象
下面是我据的一个例子
program main
implicit none
integer i
integer strlen
integer,parameter::key=2
character(len=20)::string
do while(.true.)
write(*,*)"我的名字:"
read(*,*)string
if(string=='123')then
strlen=len_trim(string)
do i=1,strlen
string(i:i)=char(ichar(string(i:i))+key)
end do
write(*,*)"密码是:",string
exit
else
write(*,*)"对不起，请您重新输入"
end if
end do
stop
end
在生成.exe文件之后，运行时我们如果输入错了他会有提示，可是如果输入对了直接程序就关闭了，这怎么处理啊
下面是我据的一个例子
program main
implicit none
integer i
integer strlen
integer,parameter::key=2
character(len=20)::string
do while(.true.)
write(*,*)"我的名字:"
read(*,*)string
if(string=='123')then
strlen=len_trim(string)
do i=1,strlen
string(i:i)=char(ichar(string(i:i))+key)
end do
write(*,*)"密码是:",string
exit
else
write(*,*)"对不起，请您重新输入"
end if
end do
stop
end
在生成.exe文件之后，运行时我们如果输入错了他会有提示，可是如果输入对了直接程序就关闭了，这怎么处理啊