Wattributes-10.c: Add -fno-common option on hppa*-*-hpux*.

[official-gcc.git] / gcc / testsuite / gnat.dg / global.ads

package Global
  with Abstract_State => (State with External)
is
   protected type Prot_Typ is
      procedure Force_Body;
   end Prot_Typ;

   protected Prot_Obj is
      procedure Force_Body;
   end Prot_Obj;

   task type Task_Typ is
      entry Force_Body;
   end Task_Typ;

   task Task_Obj is
      entry Force_Body;
   end Task_Obj;
end Global;