Wattributes-10.c: Add -fno-common option on hppa*-*-hpux*.
[official-gcc.git] / gcc / testsuite / gnat.dg / complex1.adb
blobf6b1d2cd59503840449be893b5e6d3b73351ec3c
1 -- { dg-do compile }
3 with Ada.Numerics.Complex_types; use Ada.Numerics.Complex_types;
4 with Complex1_Pkg; use Complex1_Pkg;
6 procedure Complex1 is
7 Z : Complex;
8 begin
9 Coord (Z.Re, Z.Im);
10 end;