Unexpected behavior with partial parameterization of formal packages

Unexpected behavior with partial parameterization of formal packages

[Roland Laznik]

I stumbled on an issue with partial parameterization of formal packages.
In my opinion, the following Ada 2012 code is legal:

======================== main.adb
pprocedure Main is                                            -- Line  1

   generic
   package As is
   end As;

   generic
      type T is private;
      with package A0 is new As;                              -- Line  9
   package Bs is
   end Bs;

   generic
      with package Xa is new As;
   package Xs is
      package Xb is new Bs(T => Integer, A0 => Xa);           -- Line 16
   end Xs;

   generic
      with package Yb is new Bs(T => Integer, others => <>);  -- Line 20
   package Ys is
   end Ys;

   package A is new As;
   package X is new Xs(Xa => A);                              -- Line 25
   package Y is new Ys(Yb => X.Xb);                           -- Line 26

begin
   null;
end Main;
========================

However, gnat reports an error:
========================
$ gnatmake main.adb 
gcc -c main.adb
main.adb:26:31: actual for "A0" in actual instance does not match formal
gnatmake: "main.adb" compilation error
========================

I expect A0 eventually being set to A because
- X    is new Xs(Xa => A)                 [Line 25], therefore
- X.Xb is new Bs(T => Integer, A0 => Xa)  [line 16], with Xa = A, therefore A0 = A

If the partial parametrization in line 20 is removed, the code compiles. But this should not change the setting for A0 and the same error should be reported.
========================
      with package Yb is new Bs(others => <>);  -- Modified Line 20
========================

gnat/gnatmake are from the 2017 version of GNAT GPL:
========================
$ gnatmake --version
GNATMAKE GPL 2017 (20170515-63)
Copyright (C) 1995-2017, Free Software Foundation, Inc.
This is free software; see the source for copying conditions.
There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
$ gcc --version
gcc (GCC) 6.3.1 20170510 (for GNAT GPL 2017 20170515)
Copyright (C) 2016 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.
See your AdaCore support agreement for details of warranty and support.
If you do not have a current support agreement, then there is absolutely
no warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR
PURPOSE.
========================

Did I get the semantics of partial parametrization wrong or is there a bug in gnat?

Thanks in advance,
Roland

Re: Unexpected behavior with partial parameterization of formal packages

[AdaMagica]

Comparing your code with the example RM 12.7(12/2-25/2) leads me to think that your code is legal and GNAT has a problem there.