[Bug ada/15590] New: Illegal program not detected, RM 10.1.1(14)

["ludovic dot brenta at insalien dot org" <gcc-bugzilla at gcc dot gnu dot org>]

--RM 10.1.1(14)
-- If a defining_program_unit_name of a given declaration or body
-- has a parent_unit_name, then the given declaration or body shall
-- be a library_item.

package pak1 is
   generic
   procedure ada.text_io.put_line;      --ERROR: not a library_item
end pak1;

package body pak1 is
   procedure put_line is begin null; end;
end pak1;

with pak1;
procedure main is
   procedure p1 is new pak1.put_line;
begin
   p1;
end;

$ gnatchop -w p; gnatmake main
splitting p into:
   pak1.ads
   pak1.adb
   main.adb
gcc -c main.adb
gcc -c pak1.adb
gnatbind -x main.ali
gnatlink main.ali

Compilation finished at Wed Apr 14 18:58:34

-- 
           Summary: Illegal program not detected, RM 10.1.1(14)
           Product: gcc
           Version: 3.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: ludovic dot brenta at insalien dot org
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i686-pc-linux-gnu
  GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i686-pc-linux-gnu


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15590