gcc/testsuite/gnat.dg/opt46.ads

   1 package Opt46 is
   2
   3    type Session_Type is limited private;
   4
   5    procedure Close (Session : Session_Type);
   6
   7 private
   8
   9    type Session_Data;
  10    type Session_Data_Access is access Session_Data;
  11
  12    type Session_Type is record
  13       Data : Session_Data_Access;
  14    end record;
  15
  16 end Opt46;