Fortran 90 GDB信号SIGFPE，算术异常

我正在尝试使用GDB进行调试，并且在尝试比较两个值时遇到算术错误。

第一个值在模块顶部设置为双精度，参数，公共:: Dint = -1.D99

被调用的子例程中的第二个值恰好是inta = 102。

比较在子例程中进行，就像（Inta / = int（Dint））那么

我已经尝试通过键入p Dint来查看Dint的值，但是它说它不在当前上下文中。我怀疑它可能已经过优化，或者可能需要某种语法才能在模块顶部看到变量。

我还怀疑尝试将这种双精度转换为整数可能会出现问题，但是我认为在其他情况下它仍然有效。

任何见解都可能会有所帮助。