gcc/testsuite/gnat.dg/strub_attr.ads


1
2
3
4
5
6
7
8
9
10
11
12

package Strub_Attr is
   procedure P (X : Integer);
   pragma Machine_Attribute (P, "strub", "internal");

   function F (X : Integer) return Integer;
   pragma Machine_Attribute (F, "strub");

   X : Integer := 0;
   pragma Machine_Attribute (X, "strub");

   function G return Integer;
end Strub_Attr;