Programmer's ROM - The Computer Language Library/programmersrom.iso/ada/piwg/z000301.ada

Text File | 1988-05-03 | 1.1 KB | 41 lines

with text_io; use text_io;
package package_1 is
    package package_1s is  new float_io ( float );
    end package_1;
with package_1; use package_1;
package package_2 is
    package package_2s renames package_1s;
    end package_2;
with package_2; use package_2;
package package_3 is
    package package_3s renames package_2s;
    end package_3;
with package_3; use package_3;
package package_4 is
    package package_4s renames package_3s;
    end package_4;
with package_4; use package_4;
package package_5 is
    package package_5s renames package_4s;
    end package_5;
with package_5; use package_5;
package package_6 is
    package package_6s renames package_5s;
    end package_6;
with package_6; use package_6;
package package_7 is
    package package_7s renames package_6s;
    end package_7;
with package_7; use package_7;
package package_8 is
    package package_8s renames package_7s;
    end package_8;
with package_8; use package_8;
package package_9 is
    package package_9s renames package_8s;
    end package_9;
with package_9; use package_9;
package package_10 is
    package package_10s renames package_9s;
    end package_10;