Fortran 普通块
示例
在Fortran的早期形式中，用于创建从子例程和函数可见的全局变量存储的唯一机制是使用COMMON块机制。这允许变量序列成为名称并共享。
除了已命名的公共块之外，还可能有一个空白（未命名）的公共块。
可以声明一个空白的公共块，例如
common i, j
而命名块variables可以像
common /variables/ i, j
作为一个完整的示例，我们可以想象一个可以添加和删除值的例程使用的堆存储：
PROGRAM STACKING
COMMON /HEAP/ ICOUNT, ISTACK(1023)
ICOUNT = 0
READ *, IVAL
CALL PUSH(IVAL)
CALL POP(IVAL)
END
SUBROUTINE PUSH(IVAL)
COMMON /HEAP/ ICOUNT, ISTACK(1023)
ICOUNT = ICOUNT + 1
ISTACK(ICOUNT) = IVAL
RETURN
END
SUBROUTINE POP(IVAL)
COMMON /HEAP/ ICOUNT, ISTACK(1023)
IVAL = ISTACK(ICOUNT)
ICOUNT = ICOUNT - 1
RETURN
END公共语句可用于隐式声明变量的类型并指定dimension属性。仅此行为通常就足以引起混乱。此外，隐含的存储关联和跨程序单元重复定义的要求使得使用容易出错的通用块成为可能。
最后，公共块在它们所包含的对象中非常受限制。例如，公共块中的数组必须具有显式的大小。可分配的对象可能不会出现；派生类型不能具有默认初始化。
在现代的Fortran中，可以使用模块来处理变量的共享。上面的例子可以写成：
module heap
implicit none
! In Fortran 2008 all module variables are implicitly saved
integer, save :: count = 0
integer, save :: stack(1023)
end module heap
program stacking
implicit none
integer val
read *, val
call push(val)
call pop(val)
contains
subroutine push(val)
use heap, only : count, stack
integer val
count = count + 1
stack(count) = val
end subroutine push
subroutine pop(val)
use heap, only : count, stack
integer val
val = stack(count)
count = count - 1
end subroutine pop
end program stacking命名和空白公共块的行为略有不同。注意：
命名的公共块中的对象可以最初定义；空白共同对象不应
空白公共块中的对象的行为就像公共块具有save属性一样；save当该块不在活动程序单元的范围内时，没有属性的命名通用块中的对象可能会变得不确定
后一点可以与现代代码中模块变量的行为形成对比。当模块超出范围时，Fortran2008中的所有模块变量都会隐式保存，并且不会变得不确定。在Fortran2008之前，模块超出范围时，诸如命名公共块中的变量之类的变量也将变得不确定。