gcc/testsuite/gnat.dg/taft_type2.adb

   1 -- { dg-do compile }\r
   2 -- { dg-options "-g" }\r
   3 \r
   4 with Taft_Type2_Pkg; use Taft_Type2_Pkg;\r
   5 \r
   6 package body Taft_Type2 is\r
   7 \r
   8    procedure Proc is\r
   9       A : T;\r
  10 \r
  11       function F return T is\r
  12          My_T : T;\r
  13       begin\r
  14          My_T := Open;\r
  15          return My_T;\r
  16       end;\r
  17 \r
  18    begin\r
  19       A := F;\r
  20    end;\r
  21 \r
  22 end Taft_Type2;\r