compiler: give error for non-int arguments to make
[official-gcc.git] / gcc / testsuite / gnat.dg / derived_type3.adb
blob7661feb4f1829f573a6e6805c075fda5c7dca16a
1 -- { dg-do run }
3 with Derived_Type3_Pkg; use Derived_Type3_Pkg;
5 procedure Derived_Type3 is
6 begin
7 Proc1;
8 Proc2;
9 end;