diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index 66e1acbf65eec32afecae9c5111987781472fa64..9f843d6d71e14273b64af388e20de51ebeee3132 100644
--- a/gcc/ada/exp_util.adb
+++ b/gcc/ada/exp_util.adb
@@ -6291,8 +6291,9 @@ package body Exp_Util is
 
       Typ := Underlying_Type (Typ);
 
-      --  We cannot find the operation if there is no full view available.
-      if Typ = Empty then
+      --  We cannot find the operation if there is no full view available
+
+      if No (Typ) then
          return Empty;
       end if;