Problem with intertask comm

["Tom De Muer" <tom.demuer@skynet.be>]

Hi,

I'm doing the same assignment as Pieter Thysebaert who posted a message some
days ago but I came across another problem:

"The prefix to 'ACCESS shall not be statically deeper than that of the
expected type, Continuing"

The problem is located between **:

-- begin code
declare
 monitor_data_a  : aliased Monitor_Data := (Patient => 1);
 monitor_machine_a  : aliased MonitorTask(info_for_monitor =>
monitor_data_a'Access);

** ** patient_data_a : aliased Patient_Data := (id => 1, my_monitor =>
monitor_machine_a'access); ** **
 patient_a   : PatientTask(info_for_patient => patient_data_a'access);
 begin
null;
end;
-- end code

What am I doing wrong here?  Is the monitor_machine_a'access not available
yet?  I thought that was the problem so I declared the patient_data_a &
patient_a in a subblock but same problem there.

Any help appreciated,
Tom De Muer