home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_gnu / examples / ex6_if.adb < prev    next >
Encoding:
Text File  |  1996-01-30  |  430 b   |  18 lines

  1. with Gnat.IO; use Gnat.IO;
  2. package body Ex6_If is
  3.    package body Ada_Extension is
  4.  
  5.       procedure Overridden (This : in C) is
  6.       begin
  7.          Put ("in Ex6_If.Ada_Extension.Overridden, a_value = ");
  8.          Put (This.A_Value);
  9.          Put (", b_value = ");
  10.          Put (This.B_Value);
  11.          Put (", c_value = ");
  12.          Put (This.C_Value);
  13.          New_Line;
  14.       end Overridden;
  15.  
  16.    end Ada_Extension;
  17. end Ex6_If;
  18.