case Fox is
   pragma Foo;
   pragma Bar (Baz);
   pragma Fooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo;
   pragma Quuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuux ("Corge");

   when A => null;

   when B => null;
end case;

