diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-03 10:57:46 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-03 10:57:46 +0000 |
| commit | 159b58ddeefa62da79bd458d8d606509b37a7d7b (patch) | |
| tree | 30c34b02b14ff9991fdc56cb67585061e9dff779 /gcc/ada/exp_ch6.adb | |
| parent | 578512b16c7b69545b35e7547f28d7deeaf798f5 (diff) | |
| download | gcc-159b58ddeefa62da79bd458d8d606509b37a7d7b.tar.gz | |
2012-01-03 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 182833 using svnmerge
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@182834 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 7a55ad8b14d..227dcd94ebe 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -2111,7 +2111,7 @@ package body Exp_Ch6 is and then Nkind (Call_Node) = N_Procedure_Call_Statement and then Present (Parameter_Associations (Call_Node)) then - Expand_Put_Call_With_Dimension_String (Call_Node); + Expand_Put_Call_With_Dimension_Symbol (Call_Node); end if; -- Remove the dimensions of every parameters in call |