13 lines
270 B
Ada
13 lines
270 B
Ada
|
with Ada.Text_IO; use Ada.Text_IO;
|
||
|
|
with Listes;
|
||
|
|
|
||
|
|
procedure Tester_Listes is
|
||
|
|
package Listes_Character is
|
||
|
|
new Listes (Character);
|
||
|
|
use Listes_Character;
|
||
|
|
procedure Tester_Character is
|
||
|
|
new Tester('A', 'B', 'C', Put);
|
||
|
|
begin
|
||
|
|
Tester_Character;
|
||
|
|
end Tester_Listes;
|