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