Subversion Repositories openrisc

-- { dg-do compile }

with Constant1_Pkg;

package Constant1 is

  type Timer_Id_T is new Constant1_Pkg.Timer_Id_T with null record;

  type Timer_Op_T (Pending : Boolean := False) is

     record

       case Pending is

         when True =>

           Timer_Id : Timer_Id_T;

         when False =>

           null;

       end case;

     end record;

  Timer : Timer_Op_T

    := (True, Timer_Id_T'(Constant1_Pkg.Null_Timer_Id with null record));

end Constant1;