2 -- { dg-options "-gnatws" }
4 with System; use System;
6 procedure Trampoline1 is
10 function F (I : Integer) return Integer is
15 CA : System.Address := F'Code_Address;
18 if CA = System.Null_Address then
23 -- { dg-final { scan-assembler-not "GNU-stack.*x" } }