blob: 71a0c8046a3272ddea8d18f7f2e732ecdb720a1b [file] [log] [blame]
package Volatile5_Pkg is
type Rec is record
I : Integer;
end record;
pragma Volatile(Rec);
function F return Rec;
end Volatile5_Pkg;
--