Fortran77 BLOCK DATA编译错误：Unexpected语句报错原因咨询

你的编译错误完全是因为BLOCK DATA单元的语法结构不符合Fortran77的严格规则，以下是具体修正方案：

核心规则与错误原因 #

Fortran77对BLOCK DATA单元的语句顺序、放置位置有强制要求，你的错误对应问题如下：

• 第1行错误：BLOCK DATA语句不能放在主程序、子程序/函数内部，必须作为独立的程序单元存在，与主程序、子程序平行放置。
• 第2行错误：数据声明语句的位置不符合顺序要求，必须放在BLOCK DATA语句之后、COMMON语句之前。
• 第5行错误：COMMON语句位置错误，必须放在变量声明之后、DATA赋值语句之前。

正确的BLOCK DATA结构 #

BLOCK DATA单元内的语句必须严格遵循以下顺序：

1. BLOCK DATA语句（可带名称，比如BLOCK DATA INIT）
2. 隐含类型声明（如IMPLICIT NONE，若使用）
3. 变量类型声明语句
4. COMMON语句（关联需要初始化的公共块）
5. DATA语句（给公共块变量赋值）
6. END语句

示例代码 #

! 独立的BLOCK DATA单元，与主程序/子程序平行放置
BLOCK DATA INIT_COMMONS
    IMPLICIT NONE
    ! 声明与公共块匹配的变量类型
    INTEGER ID, COUNT
    REAL VALUE
    LOGICAL FLAG
    ! 关联三个公共块
    COMMON /BLK1/ ID, COUNT
    COMMON /BLK2/ VALUE
    COMMON /BLK3/ FLAG
    ! 初始化公共块变量
    DATA ID /100/, COUNT /0/, VALUE /0.0/, FLAG /.FALSE./
END

额外注意事项 #

• 一个程序中可以有多个命名的BLOCK DATA单元，但只能有一个无名称的（即仅写BLOCK DATA）。
• 确保BLOCK DATA中声明的变量类型、数量与对应公共块完全匹配，避免类型不匹配错误。
• 若公共块包含多个变量，要么全部初始化，要么都不初始化（部分编译器对有名公共块允许部分初始化，但建议统一处理）。

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