diff options
| -rw-r--r-- | gcc/testsuite/gnat.dg/specs/renamings.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gnat.dg/specs/renamings.ads b/gcc/testsuite/gnat.dg/specs/renamings.ads index 3b90827e9fb..74579529980 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; |