URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [env_compile_capacity.adb] - Rev 384
Compare with Previous | Blame | View Log
-- { dg-do compile } with My_Env_Versioned_Value_Set_G; package body Env_Compile_Capacity is generic with package Env_Obj_Set_Instance is new My_Env_Versioned_Value_Set_G(<>); with function Updated_Entity (Value : Env_Obj_Set_Instance.Value_T) return Boolean is <>; with package Entity_Upd_Iteration is new Env_Obj_Set_Instance.Update_G (Updated_Entity); procedure Compile_G; procedure Compile_G is begin null; end; package My_Env_Aerodrome is new My_Env_Versioned_Value_Set_G (Value_T => String); function Updated_Entity (Id : in String) return Boolean is begin return True; end; package Iteration_Aerodrome_Arrival is new My_Env_Aerodrome.Update_G (Updated_Entity); procedure Aerodrome_Arrival is new Compile_G (Env_Obj_Set_Instance => My_Env_Aerodrome, Updated_Entity => Updated_Entity, Entity_Upd_Iteration => Iteration_Aerodrome_Arrival); end Env_Compile_Capacity;