Commit afb90d93 by Arnaud Charlet

Update baseline.

From-SVN: r145674
parent 5c00e6a0
...@@ -6,9 +6,9 @@ package Renamings is ...@@ -6,9 +6,9 @@ package Renamings is
procedure P (X : Integer) renames Inner.PI; procedure P (X : Integer) renames Inner.PI;
procedure P (X : Float); 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 : Float);
procedure Q (X : Integer) renames Inner.PI; 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; end Renamings;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment