Fortran三数取最大值程序在JDoodle交互模式下输入小数结果异常

• 触发异常的直接原因是Fortran 表控输入（即read *使用的无固定格式输入）的解析逻辑受运行环境的区域（locale）设置影响。JDoodle交互模式的终端环境默认采用欧洲区域配置：规则为逗号是小数分隔符，点是千位分隔符，而千位分隔符在数值读取流程中会被直接过滤。当你输入3.4这类带小数点的数值时，点会被识别成千位分隔符跳过，最终程序读入的数值就是34，正好是原输入值的10倍，和观察到的现象完全吻合。
• JDoodle的标准文本输入模式、其他在线编译器的运行环境默认采用英文区域配置，以点作为小数分隔符，因此不会触发这个解析错误。
• 代码本身存在Fortran编程的典型不规范问题：没有添加implicit none语句，所有变量依赖传统的I-N隐式规则自动推断类型，虽然这次异常不是类型错误导致，但这种写法很容易触发各类难以排查的变量类型、拼写相关bug。

1. 所有Fortran程序都要在program声明后的第一行添加implicit none，关闭隐式类型自动推断规则，显式声明所有用到的变量类型，从根源上避免类型相关的异常问题。
2. 替换易受环境影响的表控输入为显式格式输入：Fortran的显式格式浮点数读取默认以点作为小数点，完全不受系统区域设置干扰，跨环境兼容性更强。

修复后的可正常运行代码如下：

! 读取三个输入数值并输出最大值
program compare
    implicit none
    real :: x, y, z, big
    print *, "Please Enter 3 Numbers:"
    ! 显式格式读取3个浮点数，单个数最长支持20位，输入自带小数点时自动识别小数位
    read(*, '(3F20.0)') x, y, z
    if (x < y .or. x < z) then
        if (y < z) then
            big = z
        else
            big = y
        end if
    else
        big = x
    end if
    print *, "The Biggest Number Is = ", big
end program compare

如果一定要保留表控输入的灵活性（比如不限制输入的换行位置、数字间的分隔符类型），也可以在代码开头添加gfortran的扩展调用call set_decimal_symbol('.')强制指定小数点为点，但这种写法依赖gfortran的私有扩展，跨编译器兼容性不如显式格式输入方案。

内容的提问来源于stack exchange，提问作者Sohan Razzak