Re: test with task

[Jeffrey Carter <spam@spam.com>]

mferracini wrote:

> package Foo is
>    package Bar is
>       procedure nulla;
>    end Bar;
> end Foo;
> 
> package body Foo is
>    package body Bar is
>       type Dummy is new Integer;
>       procedure Nulla is
>          X : Dummy;
>       begin
>          X:=1;
>       end Nulla;
>    end Bar;
>    type N_array is array (1..10) of Dummy;

type N_Array is array (1 .. 10) of Bar.Dummy;

> begin
>    null;
> end Foo;


-- 
Jeff Carter
"We use a large, vibrating egg."
Annie Hall
44