-- $Source: /commtar/monoBANK/CICS_INTF/io_c_4.ada,v $ 
-- $Revision: 1.1 $ $Date: 88/03/26 18:56:10 $ $Author: chris $ 
     
     
with CICS_test_reporter; use CICS_test_reporter;
with CICS_exceptions; use CICS_exceptions;
with Calendar;
----------------
procedure io_c_4
----------------
is
    T: Calendar.Time;
begin
    Start_module("io_c_4", "Calendar function");
     
    Start_test("io_c_4_a", "issue Clock");
    T := Calendar.Clock;
    Pass_test;
     
    End_module;
exception
    when Others => unexpected_exception("undocumented exception"); End_module;
end;