4.8.2 FIXED 和 FREE 指令

这些指令指定指令行后面行的源代码格式。

4.8.2.1 作用域

它们适用于所在文件的其余部分，或者在遇到下一个 FREE 或 FIXED 指令之前的部分。

4.8.2.2 用法

• 它们用于切换源文件中的源代码格式。

• 它们用于切换 INCLUDE 文件的源代码格式。您可以将指令插入在 INCLUDE 文件的开头。在处理 INCLUDE 文件后，源代码格式恢复为处理 INCLUDE 文件之前使用的格式。

4.8.2.3 限制

FREE/FIXED 指令：

• 每个指令必须单独出现在编译器指令行中（没有续行）。

• 每个指令可以出现在源代码中的任意位置。其他指令必须出现在它们所影响的程序单元中。

示例：一个 FREE 指令。

!DIR$ FREE
    DO i = 1, n
        a(i) = b(i) * c(i)
    END DO