! ifort version 2021.4.0
! ifort -coarray -coarray-num-images=5 test.f90 -o a.out
! compile time output:
!010101_13941
!catastrophic error: **Internal compiler error: internal abort** Please report this error along with the circumstances in which it occurred in a Software Problem Report.
!Note: File and line given may not be explicit cause of this error.
!compilation aborted for test.f90 (code 1)
module test
implicit none
private
type, public :: type_a
integer :: c ! also required to raise the compile time error
end type type_a
type, abstract, public :: test_type
private
! main cause of the compile time error,
! exchanging the sequence of these both lines will lead to proper compilation:
type (type_a), public :: x
integer, public, codimension[:], dimension (:,:), allocatable :: coarray_component
contains
private
end type test_type
contains
subroutine z (this)
class (test_type), intent (inout) :: this
integer :: image_number
integer :: array_index
integer, allocatable, dimension(:) :: integer_array
! also required to raise the compile time error:
this % coarray_component(:,array_index) [image_number] = integer_array
end subroutine z
end module test
program main
end program main
