下例需要使用 -xalias=dummy 进行编译
parameter (n=100) integer a(n) common /qq/z(n) call sub(a,a,z,n) ... subroutine sub(a,b,c,n) integer a(n), b(n) common /qq/z(n) a(2:n) = b(1:n-1) c(2:n) = z(1:n-1) 编译器必须假设伪变量和公用变量可以重叠。