diff options
Diffstat (limited to 'gcc/ada/sem_ch12.adb')
-rw-r--r-- | gcc/ada/sem_ch12.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 24dfa4e..cd55b58 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -5336,9 +5336,8 @@ package body Sem_Ch12 is Expr2 := Expression (Parent (E2)); end if; - if Is_Static_Expression (Expr1) then - - if not Is_Static_Expression (Expr2) then + if Is_OK_Static_Expression (Expr1) then + if not Is_OK_Static_Expression (Expr2) then Check_Mismatch (True); elsif Is_Discrete_Type (Etype (E1)) then |