declare
  Line : String (1 .. 10);
  Last : Natural;
begin
  Get_Line (Line, Last);

with Ada.text_io;
with test;
use test;
    -- le fichier principal à compiler : gnatmake test_2.adb
Procedure test_2 is
begin
le_test;
end test_2;

with Ada.text_io;
Package body test is
Procedure le_test is
begin
    juste_prends : declare
    mot : String := Ada.text_io.Get_Line ;
    begin
    Null;
    end juste_prends;
end le_test;
end test;

Package test is
Procedure le_test;
end test;