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

[pinskia at gcc dot gnu dot org]

Another:
PROCEDURE C41304B IS
     TYPE V (DISC : INTEGER := 0) IS
          RECORD
                 Y : INTEGER;
          END RECORD;
     TYPE T IS ACCESS V;
     FUNCTION F RETURN V IS
     BEGIN
          RETURN (DISC => 4, Y => 3);
     END F;
BEGIN
     null;
END C41304B;
Again see PR 22368 for the patch which I used to find this.
c41304b.adb:13: error: statement types mismatch
<retval> = C.0D.379;

struct c41304b__vD.364
struct c41304b__f__T1bD.376

-- 
           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=22420