[Ada] ACATS 4.1H - BA12018 - Missed errors for private with

[Pierre-Marie de Rodat]

GNAT was ignoring the 'private' keyword for parent packages implicitly
withed from a subprogram unit, via a child unit.

Tested on x86_64-pc-linux-gnu, committed on trunk

2020-06-17  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* sem_ch10.adb (Expand_With_Clause): Add missing handling of
	N_Generic_Subprogram_Declaration, N_Subprogram_Declaration,
	N_Subprogram_Body.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: patch.diff
Type: text/x-diff
Size: 1088 bytes
Desc: not available
URL: <https://gcc.gnu.org/pipermail/gcc-patches/attachments/20200617/036f2e21/attachment-0001.bin>