1 -- { dg-do compile { target *-*-linux* } }
2 -- { dg-options "-ftrampolines -gnatws" }
3 -- { dg-skip-if "native descriptors" { ia64-*-* powerpc64-*-* } }
5 procedure Trampoline4
is
9 type FuncPtr
is access function (I
: Integer) return Integer;
11 function F
(I
: Integer) return Integer is
16 P
: FuncPtr
:= F
'Access;
23 -- { dg-final { scan-assembler "GNU-stack.*x" } }