[Ada] Propagate bit order and SSO from root to classwide equivalent type
authorThomas Quinot <quinot@adacore.com>
Wed, 26 Sep 2018 09:17:26 +0000 (09:17 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Wed, 26 Sep 2018 09:17:26 +0000 (09:17 +0000)
commit52ba224d888aead9a9f00ce04b14200f2f4ef8a5
treec80771441e64a141ee62f04e0560900d1d446924
parentb45a9ff305f536031a12509c6c6e7aea9cb7f884
[Ada] Propagate bit order and SSO from root to classwide equivalent type

2018-09-26  Thomas Quinot  <quinot@adacore.com>

gcc/ada/

* exp_util.adb (Make_CW_Equivalent_Type): Propagate bit order
and scalar storage order from root type to classwide equivalent
type, to prevent rejection of the equivalent type by the
freezing circuitry.

gcc/testsuite/

* gnat.dg/sso12.adb: New testcase.

From-SVN: r264613
gcc/ada/ChangeLog
gcc/ada/exp_util.adb
gcc/testsuite/ChangeLog
gcc/testsuite/gnat.dg/sso12.adb [new file with mode: 0644]