gcc-4.9/gcc/testsuite/gnat.dg/taft_type2.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

-- { dg-do compile }
-- { dg-options "-g" }

with Taft_Type2_Pkg; use Taft_Type2_Pkg;

package body Taft_Type2 is

   procedure Proc is
      A : T;

      function F return T is
         My_T : T;
      begin
         My_T := Open;
         return My_T;
      end;

   begin
      A := F;
   end;

end Taft_Type2;