renaming6.ads\gnat.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gnat.dg/renaming6.ads

blob: 5cfef5b999f027cc8a8192b4510fdb92ecd28dac (plain)

package Renaming6 is

  I : Integer;
  pragma Atomic (I);

  function Get_I return Integer;
  procedure Set_I (Val : Integer);

  J : Integer renames I;

  function Get_J return Integer;
  procedure Set_J (Val : Integer);

end Renaming6;