Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gnat.dg/machine_attr1.ads @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents
children
line wrap: on
line source

package Machine_Attr1 is

  type Arr is array (1 .. 256) of Integer;

  A, B, C : Arr;

  procedure Proc1;
  pragma Machine_Attribute (Proc1, "flatten");

  procedure Proc2;
  pragma Machine_Attribute (Proc2, "used");

  procedure Proc3;
  pragma Machine_Attribute (Proc3, "cold");

  procedure Proc4;
  pragma Machine_Attribute (Proc4, "hot");

  procedure Proc5;
  pragma Machine_Attribute (Proc5, "target", "avx");

  procedure Proc6;
  pragma Machine_Attribute (Proc6, "target_clones", "avx", "avx2", "default");

end Machine_Attr1;