diff --git a/gcc/testsuite/gnat.dg/specs/renamings.ads b/gcc/testsuite/gnat.dg/specs/renamings.ads
index 3b90827e9fb5..74579529980c 100644
--- a/gcc/testsuite/gnat.dg/specs/renamings.ads
+++ b/gcc/testsuite/gnat.dg/specs/renamings.ads
@@ -6,9 +6,9 @@ package Renamings is
 
    procedure P (X : Integer) renames Inner.PI;
    procedure P (X : Float);
-   pragma Convention (C, P); -- { dg-error "non-local renaming" }
+   pragma Convention (C, P); -- { dg-error "non-local entity" }
 
    procedure Q (X : Float);
    procedure Q (X : Integer) renames Inner.PI;
-   pragma Convention (C, Q); -- { dg-error "non-local renaming" }
+   pragma Convention (C, Q); -- { dg-error "non-local entity" }
 end Renamings;