mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 03:55:14 +00:00
11 lines
205 B
Ada
11 lines
205 B
Ada
-- { dg-do compile }
|
|
|
|
with Ada.Numerics.Complex_types; use Ada.Numerics.Complex_types;
|
|
with Complex1_Pkg; use Complex1_Pkg;
|
|
|
|
procedure Complex1 is
|
|
Z : Complex;
|
|
begin
|
|
Coord (Z.Re, Z.Im);
|
|
end;
|