embed accept statement in procedures not possible?

[Gerd <GerdM.O@t-online.de>]

Hi all,

I work with GNAT 3.15 on Windows XP. My problem is that I want
structure my program in a way that is not accepted by GNAT, but I
cannot understand why.

My code (schematic only):

task t is
  entry e;
end t;

task body t is
  procedure p is
  begin
    accept e;
  end p;
begin
  p;
end t;

GNAT tells me: "enclosing body for accept must be a task". But - the
accept in procedure p _is_ in a task. So why is this not allowed?

My accept statement is a bit longer and needed a few times in
different situations. Therefore I don't want to "copy and paste" this
code directly in the task body.

Gerd