[Bug ada/64866] New: Lost visibility of package Interfaces after task or PO declaration

["simon at pushface dot org" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=64866

            Bug ID: 64866
           Summary: Lost visibility of package Interfaces after task or PO
                    declaration
           Product: gcc
           Version: 5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: ada
          Assignee: unassigned at gcc dot gnu.org
          Reporter: simon at pushface dot org

Created attachment 34618
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=34618&action=edit
Demonstrator

While developing an Ada RTS, I found that code like

   with Interfaces;
   package body Foo is

      task T is
      end T;

      U : Interfaces.Unsigned_32 := 0;

      task body T is
      begin
         null;
      end T;

   end Foo;

would fail with

foo.adb:7:08: "Interfaces" is not visible (more references follow)
foo.adb:7:08: non-visible declaration at interfac.ads:38

(and similar problems with a PO).

Iâm fairly confident that this is caused by having System.Tasking âwithâ an
unexpected package, in this case package FreeRTOS (it wasnât just the name, I
changed it to package Whatever, same result).

I also tried making the child packages of FreeRTOS into nested packages, and
then making that a child of System (in s-freert.ads); no joy.

In the attachment, Iâve included the relevant RTS specs, which are all that is
needed to show the problem when unpacked into the same directory as foo.ad?.
The same problem occurs if the RTS code is in a proper RTSâs adainclude/.