[Ada] Passing actual parameter values to out formals when Default_Value is set
authorGary Dismukes <dismukes@adacore.com>
Tue, 31 Mar 2020 22:27:06 +0000 (18:27 -0400)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 15 Jun 2020 08:04:32 +0000 (04:04 -0400)
commitc873714ff0cdefda09729bf04a7fc6c049d024f5
tree8dba00f6f089d9bf0ebab4ea620e72dd8231b81d
parent773e99ac3e61bd84f9848e78e17867a920f9ae53
[Ada] Passing actual parameter values to out formals when Default_Value is set

2020-06-15  Gary Dismukes  <dismukes@adacore.com>

gcc/ada/

* exp_ch6.adb (Add_Call_By_Copy_Code): In the case of a view
conversion passed to a scalar out-mode parameter where the
formal has Default_Value set, declare the copy temp with the
base type of the formal's subtype and initialize the copy temp
with the actual's value.
gcc/ada/exp_ch6.adb