| -- { dg-do compile } | |
| -- { dg-options "-fstrub=strict -fdump-ipa-strubm" } | |
| -- { dg-require-effective-target strub } | |
| -- We don't read from the automatic variable, but being an automatic | |
| -- variable, its presence should be enough for the procedure to get | |
| -- strub enabled. | |
| with Strub_Attr; | |
| procedure Strub_Var is | |
| X : Integer := 0; | |
| pragma Machine_Attribute (X, "strub"); | |
| begin | |
| X := Strub_Attr.F (0); | |
| end Strub_Var; | |
| -- { dg-final { scan-ipa-dump-times "\[(\]strub \[(\]internal\[)\]\[)\]" 1 "strubm" } } |