PROGRAM FFT INTEGER NODE*2, NSTEPS*2 REAL DELTA, MAT(10,10), V(1000), X, Z COMMON /INI/ NODE, DELTA, V ... VOLATILE V, Z, MAT, /INI/ ... EQUIVALENCE ( X, V ) ...
In the above example, the array V, the variable Z, and the common block /INI/ are explicitly specified as VOLATILE. The variable X is VOLATILE through an equivalence.