Subversion Repositories openrisc

-- { dg-do compile }

-- { dg-options "-g" }

with Ada.Unchecked_Conversion;

with System;

package body Debug3 is

  type Rec is record

     I : Integer;

  end record;

  for Rec'Alignment use 1;

  type Ptr is access Rec;

  function To_Ptr is new Ada.Unchecked_Conversion(System.Address, Ptr);

  procedure Proc is

    function Get (S1 : String) return Ptr is

    begin

       return To_Ptr (S1'Address);

    end;

    M : Ptr;

    begin

      M := Get ("");

    end;

end Debug3;