summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/specs/cpp_assignment.ads
blob: 3247b671bd527bd912799e7be499fd266c0665da (plain)
1
2
3
4
5
6
7
8
9
10
--  { dg-do compile }

package CPP_Assignment is
   type T is tagged record
      Data : Integer := 0;
   end record;
   pragma Convention (CPP, T); 

   Obj1 : T := (Data => 1);                                                        Obj2 : T'Class := Obj1;
end;