gcc/testsuite/gnat.dg/machine_attr1.ads

   1 package Machine_Attr1 is
   2
   3   type Arr is array (1 .. 256) of Integer;
   4
   5   A, B, C : Arr;
   6
   7   procedure Proc1;
   8   pragma Machine_Attribute (Proc1, "flatten");
   9
  10   procedure Proc2;
  11   pragma Machine_Attribute (Proc2, "used");
  12
  13   procedure Proc3;
  14   pragma Machine_Attribute (Proc3, "cold");
  15
  16   procedure Proc4;
  17   pragma Machine_Attribute (Proc4, "hot");
  18
  19   procedure Proc5;
  20   pragma Machine_Attribute (Proc5, "target", "avx");
  21
  22   procedure Proc6;
  23   pragma Machine_Attribute (Proc6, "target_clones", "avx", "avx2", "default");
  24
  25 end Machine_Attr1;