gcc/testsuite/gnat.dg/remote_call_iface.ads

generic
package Remote_Call_Iface is
   pragma Remote_Call_Interface;
   procedure Proc;
end Remote_Call_Iface;