Fix internal error on locally derived bit-packed array type
authorEric Botcazou <ebotcazou@adacore.com>
Fri, 21 May 2021 08:57:02 +0000 (10:57 +0200)
committerEric Botcazou <ebotcazou@adacore.com>
Fri, 21 May 2021 08:57:02 +0000 (10:57 +0200)
commitdd9a8fff14eda90fcaa3ac4b6b68ceded72a6af5
treeba38229e447b4a18f53b1cbdf224673a4e8c1b68
parent932198a8e1b6ab26201a265ced3a8c4802304146
Fix internal error on locally derived bit-packed array type

This is a regression present on the mainline, 11 and 10 branches,
in the form of an ICE on a locally derived bit-packed array type.

gcc/ada/
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Process
the implementation type of a packed type implemented specially.
gcc/testsuite/
* gnat.dg/derived_type7.adb, gnat.dg/derived_type7.ads: New test.
gcc/ada/gcc-interface/decl.c
gcc/testsuite/gnat.dg/derived_type7.adb [new file with mode: 0644]
gcc/testsuite/gnat.dg/derived_type7.ads [new file with mode: 0644]