gcc/testsuite/gnat.dg/debug11_pkg.adb

   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
   9 with Debug11_Pkg2;
  10
  11 package 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
  26 end Debug11_Pkg;