===================================================================
@@ -1,5 +1,5 @@
-- { dg-do compile }
+-- { dg-options "-cargs -gdwarf-2 -gstrict-dwarf -dA -margs" }
-- { dg-final { scan-assembler "DW_TAG_imported_decl" } }
package body Debug7 is
===================================================================
@@ -1,5 +1,5 @@
-- { dg-do compile }
+-- { dg-options "-cargs -g -fgnat-encodings=minimal -dA -margs" }
-- { dg-final { scan-assembler-not "DW_OP_const4u" } }
-- { dg-final { scan-assembler-not "DW_OP_const8u" } }
===================================================================
@@ -7,7 +7,7 @@
-- some hackish way to check that types are output in the proper context (i.e.
-- at global or local scope).
--
+-- { dg-options "-cargs -gdwarf-4 -fdebug-types-section -dA -margs" }
-- { dg-final { scan-assembler-times "\\(DIE \\(0x\[a-f0-9\]*\\) DW_TAG_type_unit\\)" 0 } }
procedure Debug9 is