gcc/testsuite/gnat.dg/class_wide4.adb

   1 --  { dg-do run }
   2
   3 with Class_Wide4_Pkg;
   4 with Class_Wide4_Pkg2;
   5
   6 procedure Class_Wide4 is
   7    D  : aliased Class_Wide4_Pkg.Data_Object;
   8    O  : aliased Class_Wide4_Pkg2.Object;
   9    IA : not null access Class_Wide4_Pkg.Conditional_Interface'Class :=
  10           O'Access;
  11    I  : Class_Wide4_Pkg.Conditional_Interface'Class renames
  12           Class_Wide4_Pkg.Conditional_Interface'Class (O);
  13 begin
  14    O.Do_Stuff;
  15    O.Do_Stuff_Access;
  16    IA.Do_Stuff;
  17    IA.Do_Stuff_Access;
  18    I.Do_Stuff;
  19    I.Do_Stuff_Access;
  20 end Class_Wide4;