diff options
Diffstat (limited to 'gcc/ada/einfo.adb')
| -rw-r--r-- | gcc/ada/einfo.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index 63878e4..d4a4310e 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -1523,7 +1523,7 @@ package body Einfo is function Has_Constrained_Partial_View (Id : E) return B is begin pragma Assert (Is_Type (Id)); - return Flag187 (Id); + return Flag187 (Base_Type (Id)); end Has_Constrained_Partial_View; function Has_Controlled_Component (Id : E) return B is |