2 -- { dg-options "-gnatws" }
4 with System; use System;
6 procedure Trampoline2 is
10 type FuncPtr is access function (I : Integer) return Integer;
12 function F (I : Integer) return Integer is
17 P : FuncPtr := F'Access;
18 CA : System.Address := F'Code_Address;
22 if CA = System.Null_Address then