[Ada] Wrong accessibility for conversion to named access
authorJustin Squirek <squirek@adacore.com>
Sun, 23 Aug 2020 17:38:16 +0000 (13:38 -0400)
committerPierre-Marie de Rodat <derodat@adacore.com>
Thu, 22 Oct 2020 12:11:24 +0000 (08:11 -0400)
commitd302be6eba3f7c09ca01496fd2172c6aeb8967b3
treea442b72b373537fb6ac0df729cbf402b684225f4
parent67a3b519af65068c5ad8173373068929b99a3912
[Ada] Wrong accessibility for conversion to named access

gcc/ada/

* sem_util.adb (Accessibility_Level_Helper): Conversions to
named access types get the level associated with the named
access type.
gcc/ada/sem_util.adb