Example

Example: VOLATILE: @

       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.