Question

我的代码如下：

DIMENSION T(10)
DATA A,B /9.,5./
IS=1
J=J+3
T(j-2)=A
T(J-1)=A-B
80 T(J)=T(1)+T(J-1)
J=J+1
IF(J.NE.10) GOTO 80
DO I=1,5
WRITE (*,15) I, T(J)
END DO
15 FORMAT ('T('I2')=', F8.4)
STOP
END

我的编译错误如下：

jdoodle.f95:13:16:

 15 FORMAT ('T('IS')=', F8.4)
                1
Error: GNU Extension: Missing comma at (1)
jdoodle.f95:11:20:

 WRITE (*,15) I, T(J)
                    1
Error: FORMAT label 15 at (1) not defined

您能否告诉我Fortran代码的错误陈述在哪里？我认为结果必须是T（1）= nnn.0nnn。

Answer 1

非常感谢，我刚刚找到了解决方案！

代码是：

DIMENSION T(10)
DATA A,B /9.,5./
IS=1
J=J+3
T(J-2)=A
T(J-1)=A-B
80 T(J)=T(1)+T(J-1)
J=J+1
IF(J.NE.10) GOTO 80
DO I=1,5
WRITE (*,15) I, T(I)
END DO
15 FORMAT ('T(',I2,')=',F8.4)
STOP
END

结果是：

T( 1)=  9.0000
T( 2)=  4.0000
T( 3)= 13.0000
T( 4)= 22.0000
T( 5)= 31.0000

谢谢。

Answer 2

可以看出，用

替换格式规范

15 FORMAT ('T(',I2,')=',F8.4)

阻止编译器抱怨。我现在会更一般地回答。

格式规范可以由多个格式项组成，其中每个项都是编辑描述符，或者（递归地）带括号的格式项列表。

通常需要用逗号分隔每个格式项。在问题的格式中，编辑描述符为'T('，I2和')='。 [第一个和最后一个是字符串编辑描述符，第二个是数据编辑描述符。]两个对之间的逗号都不允许被省略。

根据Fortran 2008标准，只有在以下情况下才允许使用逗号：

在P修改描述符与紧随其后的F，E，EN，ES，D或{{1}之间编辑描述符，可能在重复规范之前;
在斜杠编辑描述符之前，当没有出现可选的重复规范时;
在斜杠编辑描述符之后;
冒号编辑描述符之前或之后。

当然，只是因为这些逗号可能被省略，并不意味着它们应该被删除。有一个可选的逗号存在永远不会伤害。

此外，正如编译器的消息所示，即使兼容程序必须具有逗号，编译器也可以选择接受逗号的缺失（尽管编译器必须能够检测到这种不合规）。作为个人陈述，我建议避免这种非标准的写作。

正如评论中所指出的，即使使用更正的格式规范，该程序仍然无效：不允许在G首次定义之前j=j+3。

错误：FORMAT语句中缺少逗号

2 个答案: