1-- { dg-do compile }
2-- { dg-skip-if "missing alias support" { *-*-darwin* hppa*-*-hpux* } }
3
4package Linker_Alias is
5
6   Var : Integer;  -- { dg-error "aliased to undefined symbol" }
7   pragma Export (C, Var, "my_var");
8   pragma Linker_Alias (Var, "var2");
9
10end Linker_Alias;
11