1--  { dg-options "-cargs -g -dA -margs" }
2--  { dg-final { scan-assembler "local_imported_func" } }
3--  { dg-final { scan-assembler "local_imported_var" } }
4--  { dg-final { scan-assembler "global_imported_func" } }
5--  { dg-final { scan-assembler "global_imported_var" } }
6--  { dg-final { scan-assembler-not "foreign_imported_func" } }
7--  { dg-final { scan-assembler-not "foreign_imported_var" } }
8
9with Debug11_Pkg2;
10
11package body Debug11_Pkg is
12
13   procedure Dummy is
14      Local_Imported_Var : Integer;
15      pragma Import (C, Local_Imported_Var, "imported_var");
16
17      function Local_Imported_Func return Integer;
18      pragma Import (C, Local_Imported_Func, "imported_func");
19   begin
20      Local_Imported_Var := Local_Imported_Func;
21      Global_Imported_Var := Global_Imported_Func;
22      Debug11_Pkg2.Foreign_Imported_Var :=
23         Debug11_Pkg2.Foreign_Imported_Func;
24   end Dummy;
25
26end Debug11_Pkg;
27