Naming conflict between enum literal and type name not detected

[rssen]

It is only detected if the names are exactly the same (e.g. all upper-case letters)

Example:

package Test is

   type Enum is (
      FOO => 0
   ) with Size => 16;

   type Foo is mod 2**8;

   type Test_Frame is
      message
         B : Foo;
      end message;

end Test;

rflx-test.ads:59:09: "Foo" conflicts with declaration at line 18
gprbuild: *** compilation phase failed