fortran - 正宽度误差？

Question

我正在使用 FORTRAN 90 通过构建二叉表达式树来计算表达式。我已经为post_order_traversal 创建了一个子程序，并且想格式化一个write 语句来输出结果而不前进到下一行。这是我到目前为止所拥有的:

Print*, 'The Postfix Expression:' 

Write(101,*) tempPOinter%exp

101 Format (1x, A3, Advance='no') 

                                          1

但是，当我尝试编译时，我收到一条错误消息“在 (1) 处的格式说明符 D 中需要正宽度。如果有人知道这意味着什么或如何修复它，我将非常感谢您的帮助!谢谢。

Answer 1

首先，您已将格式行号放入单元位置。我觉得你想要的更像是

write(*, 101) tempPOinter%exp

其次，advance=no参数需要放在write语句中，像这样:

write(*, 101, advance="no") tempPOinter%exp
101 format(1X, A3)

您也可以将所有内容放在一行中:

write(*, '(1X, A3)', advance='no') tempPOinter%exp

它的值(value):当它试图解释您的格式语句时出现错误:

101 Format (1x, A3, Advance='no')

• 1X - 一个空格
• A3 - 3 个字母的字符串
• A - 任意长度的字符串
• d - double float ——需要长度和小数位数!错误!