2 -- { dg-options "-fstrub=relaxed -fdump-ipa-strub" }
3 -- { dg-require-effective-target strub }
5 procedure Strub_Renm1
is
7 pragma Machine_Attribute
(V
, "strub");
9 procedure P
(X
: Integer);
10 pragma Machine_Attribute
(P
, "strub", "at-calls");
12 function F
return Integer;
14 procedure Q
(X
: Integer) renames P
;
15 pragma Machine_Attribute
(Q
, "strub", "at-calls");
17 function G
return Integer renames F
;
18 pragma Machine_Attribute
(G
, "strub", "internal");
20 procedure P
(X
: Integer) is null;
21 function F
return Integer is (0);
28 -- This is for P; Q is an alias.
29 -- { dg-final { scan-ipa-dump-times "\[(\]strub \[(\]at-calls\[)\]\[)\]" 1 "strub" } }
31 -- This is *not* for G, but for Strub_Renm1.
32 -- { dg-final { scan-ipa-dump-times "\[(\]strub \[(\]wrapped\[)\]\[)\]" 1 "strub" } }
33 -- { dg-final { scan-ipa-dump-times "\[(\]strub \[(\]wrapper\[)\]\[)\]" 1 "strub" } }