PR libfortran/64770 Segfault when trying to open existing file with status="new".

[official-gcc.git] / gcc / testsuite / gnat.dg / discr_test.adb

--  { dg-do compile }

procedure Discr_Test is
  procedure P is begin null; end P;

  task type Tsk1 is
    entry rvT;
  end Tsk1;

  task body Tsk1 is
  begin
    accept rvT;
  end Tsk1;

  task type Tsk2 (pS : not null access procedure) is
    entry rvT;
  end Tsk2;

  task body Tsk2 is
    tskT : Tsk1;
  begin
    accept rvT do
      requeue tskT.rvT;
    end rvT;
    pS.all;
  end;

  Obj : Tsk2 (P'access);
begin
  Obj.rvT;
end;