Fix broken MinGW build of gcc.c

[official-gcc.git] / gcc / testsuite / gnat.dg / sync1.adb

--  { dg-do compile }
package body sync1 is
   protected body Chopstick is

     entry Pick_Up when not Busy is
     begin
        Busy := True;
     end Pick_Up;

     procedure Put_Down is
     begin
        Busy := False;
     end Put_Down;
   end Chopstick;
end sync1;