1. 不建议全部大写。现代代码应该大小写混合。
2. 相等判断应该用 == 而非 =
3. 现代代码,尽量避免用语句标号。
4. NN应定义为字符类型。而非逻辑类型。Y 和 N 也建议用字符,并且用常量更便于理解。
[Fortran] 纯文本查看 复制代码 Program AAA
Implicit None
Character NN
Do
write(*,*) "Y/N?"
read(*,*) NN
If ( 'Y'==NN ) then
write(*,*) "200"
Else If ( 'N'==NN ) then
write(*,*) "300"
Else
cycle
End If
exit
End Do
End Program AAA |