diff options
Diffstat (limited to 'translate/translation.adb')
| -rw-r--r-- | translate/translation.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/translate/translation.adb b/translate/translation.adb index 92a4d04..e4e3d72 100644 --- a/translate/translation.adb +++ b/translate/translation.adb @@ -15181,7 +15181,7 @@ package body Translation is E := Create_Temp_Init (Expr_Info.Ortho_Ptr_Type (Mode_Value), Expr); Chap3.Check_Array_Match - (Res_Type, Mnode_Null, + (Res_Type, T2M (Res_Type, Mode_Value), Expr_Type, Dp2M (E, Expr_Info, Mode_Value), Loc); return New_Convert_Ov |