RISC-V: Add support for riscv-*-*.
[official-gcc.git] / gcc / testsuite / gnat.dg / opt21_pkg.ads
blob251bf847748961ffe760378bc25baf4e73bc9fa3
1 with System;
3 package Opt21_Pkg is
5 type R is record
6 Ptr : System.Address := System.Null_Address;
7 end record;
9 type Obj is access all R;
11 function Get_Object (Object : not null access R) return System.Address;
13 function Convert (W : Obj) return System.Address;
15 end Opt21_Pkg;