gcc/testsuite/gnat.dg/pure_function3_pkg.ads


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

package Pure_Function3_Pkg is

   type T is limited private;
   function F (Self : T) return Integer with Pure_Function;
   procedure Set (Self : in out T);
   function F_And_Set (Self : in out T) return Integer with Pure_Function;

private

   type T is limited record
      F : Integer;
   end record;

end Pure_Function3_Pkg;