gcc/testsuite/gnat.dg/prot3_pkg.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

package Prot3_Pkg is
   
   type Rec is record
      V1 : Short_Integer;
      V2 : Short_Integer;
   end record with Volatile_Full_Access;
   
   protected type Prot is
      procedure Foo (J : Short_Integer);
   private
      Val : Rec;
   end Prot;
   
   P : Prot;
   
end Prot3_Pkg;