GNAT: Weird Style Warnings

[jacob.m.h.smith@googlemail.com]

Hello.

I am pretty new to Ada and I have a problem I'm not able to solve.
I compile my files with the following GNAT style switch: -
gnaty2acefhiklmM78nprt
When compiling this one adb file I always get the following message:
s-expuns.ads:42:04: (style) bad indentation
s-expuns.ads:44:04: (style) bad indentation
I have no idea why. This file "s-expuns.ads" is not one of mine, it
must be part of
some library. Does anyone know the meaning of this?

Here's the program text (It's no important project, I was just
experimenting):

-----------------------------------------------------------------------------
with Ada.Integer_Text_IO, Interfaces;
use  Ada.Integer_Text_IO, Interfaces;

procedure Bit_Extraction is

  subtype Byte is Unsigned_8;

  function Get_Bits (The_Byte, Mask : Byte) return Byte is
    Position : Natural := 0;
  begin
    while ((2**Position and Mask) = 0) loop
      Position := Position + 1;
    end loop;
    return Shift_Right ((The_Byte and Mask), Position);
  end Get_Bits;

  Test_Byte, Test_Result : Byte;

begin

  --  Test_Byte: 247 => 11110111
  Test_Byte := 247;

  --  Test_Result: 7 => 111
  Test_Result := Get_Bits (Test_Byte, 224);

  Put (Integer (Test_Result), 0);

end Bit_Extraction;
-----------------------------------------------------------------------------

Greetings,
Jacob M. H. Smith