gcc/testsuite/gnat.dg/strub_ind1.ads

   1 package Strub_Ind1 is
   2    procedure P (X : Integer);
   3    pragma Machine_Attribute (P, "strub", "internal");
   4
   5    function F (X : Integer) return Integer;
   6    pragma Machine_Attribute (F, "strub");
   7
   8    X : aliased Integer := 0;
   9    pragma Machine_Attribute (X, "strub");
  10
  11    type FT is access function (X : Integer) return Integer;
  12    pragma Machine_Attribute (FT, "strub", "at-calls");
  13
  14    FP : FT := F'Access;
  15    pragma Machine_Attribute (FP, "strub", "at-calls");
  16
  17 end Strub_Ind1;