gcc/testsuite/gnat.dg/debug3.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-g" }
   3
   4 with Ada.Unchecked_Conversion;
   5 with System;
   6
   7 package body Debug3 is
   8
   9   type Rec is record
  10      I : Integer;
  11   end record;
  12   for Rec'Alignment use 1;
  13
  14   type Ptr is access Rec;
  15
  16   function To_Ptr is new Ada.Unchecked_Conversion(System.Address, Ptr);
  17
  18   procedure Proc is
  19
  20     function Get (S1 : String) return Ptr is
  21     begin
  22        return To_Ptr (S1'Address);
  23     end;
  24
  25     M : Ptr;
  26
  27     begin
  28       M := Get ("");
  29     end;
  30
  31 end Debug3;