gcc/testsuite/gnat.dg/prot3_pkg.adb

   1 package body Prot3_Pkg is
   2
   3    protected body Prot is
   4       function Fn (J : Short_Integer) return Rec
   5       is
   6       begin
   7          return (V1 => J * J,
   8                  V2 => J);
   9       end;
  10
  11       procedure Foo (J : Short_Integer) is
  12       begin
  13          Val := Fn (J);
  14       end;
  15    end Prot;
  16
  17 end Prot3_Pkg;