Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/gcc/testsuite/gnat.dg/spark1.ads

9 lines
145 B
Ada

package Spark1 is
Mailbox : Integer with Atomic, Async_Writers, Async_Readers;
task Worker
with Global => (Input => Mailbox);
end;