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