daily pastebin goal
15%
SHARE
TWEET

Untitled

a guest Oct 8th, 2017 79 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. with Foobar;
  2. package Foo is
  3.    package Bar renames Foobar;
  4. end Foo;
  5. with Ada.Text_IO;
  6.  
  7. package body Foobar is
  8.    procedure Blarg is
  9.    begin
  10.       Ada.Text_IO.Put_Line ("Blarg");
  11.    end Blarg;
  12. end Foobar;
  13. package Foobar is
  14.    procedure Blarg;
  15. end Foobar;
  16. with Foo;
  17.  
  18. procedure Main is
  19. begin
  20.    Foo.Bar.Blarg;
  21. end Main;
RAW Paste Data
Top