diff options
Diffstat (limited to 'src/ortho/debug')
| -rw-r--r-- | src/ortho/debug/ortho_debug.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ortho/debug/ortho_debug.adb b/src/ortho/debug/ortho_debug.adb index 9961fd2e0..2feda5932 100644 --- a/src/ortho/debug/ortho_debug.adb +++ b/src/ortho/debug/ortho_debug.adb @@ -1122,7 +1122,7 @@ package body Ortho_Debug is raise Type_Error; end if; -- The element type of ARR must be constrained. - Check_Constrained_Type (Get_Array_El_Type (Arr.Rtype)); + Check_Constrained_Type (Get_Array_El_Type (Res_Type)); -- The result is an array. if Res_Type.Kind not in ON_Array_Kinds then raise Type_Error; |