Access violation in 11.1.038 when copying type containing an allocateable as well as type-bound procedures

[thomas_boehme]

I am getting access violations when Icopya type containing an allocatable as well as type-bound procedures and further fields after the allocatable.

The sample code below procudes a segmentation violation when executing the line A1 = A2. This does not happen when the field order in the type definition is changed such that the allocatable element comes last.
The code did not produce any errors in 11.1.035.

regards,
Thomas

[plain]module test
    TYPE :: A
        INTEGER, ALLOCATABLE :: IntAlloc
        REAL(8) :: val = 1.0
    CONTAINS
       PROCEDURE GetVal
    END TYPE
    
    CONTAINS
    REAL(8) FUNCTION GetVal( this )
        class(A), INTENT(IN)   :: this
        GetVal = this%val
    END FUNCTION    
end module

    program Console1
    USE test
    implicit none
    TYPE (A)    :: A1, A2
    A1 = A2
    end program Console1
[/plain]

[Steven_L_Intel1]

Thanks - I'll look into this.

[Steven_L_Intel1]

Issue ID is DPD200138087.

[Steven_L_Intel1]

This was fixed in 11.1 Update 2.