[Ada] Fix expansion of structural subprogram variants
authorPiotr Trojanek <trojanek@adacore.com>
Wed, 27 Apr 2022 15:30:59 +0000 (17:30 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 30 May 2022 08:29:04 +0000 (08:29 +0000)
commit576b7778915c1e2da8d50c8f24c5c9b5282eac5f
tree01522854b962900512d20c7cd1caec43d3b439d0
parent263cb16b7667ba92fbac3098375aecfb7f80105e
[Ada] Fix expansion of structural subprogram variants

When implementing structural subprogram variants we ignored them in
expansion of the pragma itself, but not in expansion of a recursive
subprogram call. Now fixed.

gcc/ada/

* exp_ch6.adb (Check_Subprogram_Variant): Ignore structural
variants.
gcc/ada/exp_ch6.adb