gcc/testsuite/gnat.dg/discr6_pkg.ads

   1 generic\r
   2 \r
   3   type T(<>) is private;\r
   4 \r
   5 package Discr6_Pkg is\r
   6 \r
   7   function X (A : T) return Integer;\r
   8 \r
   9   pragma Interface(C, X);\r
  10   pragma IMPORT_FUNCTION (\r
  11          INTERNAL         => X,\r
  12          EXTERNAL         => X,\r
  13          PARAMETER_TYPES  => (T),\r
  14          MECHANISM        => (Descriptor(S)));\r
  15 \r
  16 end Discr6_Pkg;\r