[Bug modula2/114745] New: const cast causes ICE

[gaius at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=114745

            Bug ID: 114745
           Summary: const cast causes ICE
           Product: gcc
           Version: 14.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: modula2
          Assignee: gaius at gcc dot gnu.org
          Reporter: gaius at gcc dot gnu.org
  Target Milestone: ---

As reported on the gm2 mailing list performing a cast in a const expression
causes an ICE.  The large original example from the mailing list has been
reduced to this smaller example:

MODULE tinyindr ;

FROM SYSTEM IMPORT WORD, BYTE ;

TYPE
   File = RECORD
             lastWord: WORD ;
             lastByte: BYTE ;
          END ;

PROCEDURE Create (VAR f: File) ;
BEGIN
   WITH f DO
      lastWord := WORD (0) ;
      lastByte := BYTE (0)
   END
END Create ;


VAR
   foo: File ;
BEGIN
   Create (foo)
END tinyindr.