-- This is one of a number of optional PIWG_IO bodies.
-- This body is for systems that have TEXT_IO and want either
-- screen or printed output.

with Text_Io;
use Text_Io;
with Duration_Io;  --  A000001.ADA or A000002.ADA

package body Piwg_Io is -- A000042.ADA

    procedure Piwg_Output (Testname : in String;
                           Classname : in String;
                           Cpu_Delta : in Duration;
                           Wall_Delta : in Duration;
                           Num_Of_Iterations : in Integer;
                           Test_Desc_1 : in String;
                           Test_Desc_2 : in String;
                           Test_Desc_3 : in String) is
    begin
        New_Line;
        Put ("Test Name:   ");
        Put (Testname);
        Put ("                        Class Name:  ");
        Put_Line (Classname);

        Put ("CPU Time:   ");
        Duration_Io.Put (Cpu_Delta, 6, 1);
        Put_Line ("  microseconds ");

        Put ("Wall Time:  ");
        Duration_Io.Put (Wall_Delta, 6, 1);
        Put ("  microseconds.         Iteration Count:  ");
        Put_Line (Integer'Image (Num_Of_Iterations));

        Put_Line ("Test Description:");
        Put_Line (Test_Desc_1);
        Put_Line (Test_Desc_2);
        Put_Line (Test_Desc_3);
        New_Line (2);

    end Piwg_Output;

end Piwg_Io;