1 2 3 4 5 6 7 8 9 10 11
package Volatile5_Pkg is type Rec is record I : Integer; end record; pragma Volatile(Rec); function F return Rec; end Volatile5_Pkg; --