(Posted twice as previous post didn't go through)
The following code triggers an ICE when using IVF XE 22.214.171.124 and compiling a Win32, Debug configuration. This does not happen with x64, Debug. I am not sure if this has been reported.
TYPE :: T
CHARACTER(LEN=:),ALLOCATABLE :: P(:)
END TYPE T
TYPE(T) :: NOT_OK = T(P=['1111111111111111111111111111111111110'])
TYPE(T) :: OK = T(P=['111111111111111111111111111111111111'])
END PROGRAM MAIN