gcc/testsuite/gnat.dg/opt98.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

with Ada.Unchecked_Conversion;
with System;

package Opt98 is

  type Rec is record
    I : Integer;
  end record;

  function To_Address is new Ada.Unchecked_Conversion (Rec, System.Address);

  function To_Rec is new Ada.Unchecked_Conversion (System.Address, Rec);

  A : System.Address with Atomic;

  function Func return Rec;

end Opt98;