[Bug ada/22383] New: ada produces mis-match (non compatible) types in MODIFY_EXPR

["pinskia at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

Another one:
with Ada.Task_Identification; use Ada.Task_Identification;
with Unchecked_Conversion;
package body a is
   pragma Warnings (Off);
   function To_Tid  is new Unchecked_Conversion
     (System.Address, Ada.Task_Identification.Task_Id);
   function To_Task_Id
     (Id   : System.Address) return Ada.Task_Identification.Task_Id
   is
   begin
      return To_Tid (Id);
   end To_Task_Id;
end a;
with System;
with Ada.Task_Identification;
package a is
   function To_Task_Id
     (Id   : System.Address)
      return Ada.Task_Identification.Task_Id;
end a;

-- 
           Summary: ada produces mis-match (non compatible) types in
                    MODIFY_EXPR
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: pinskia at gcc dot gnu dot org
                CC: bosch at gcc dot gnu dot org,gcc-bugs at gcc dot gnu dot
                    org
OtherBugsDependingO 22368
             nThis:


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22383