Community
cancel
Showing results for 
Search instead for 
Did you mean: 
Highlighted
1 View

ICE C0000005 with version 18.0.3

Hi,

with the version 18.0.3 I get an ICE with the following lines of code. It is part of a code to hold a dynamic growing list of character items of specified length. Since I have only 18.0.3 installed, I couldn't check it with another compiler version.

module list
    type list_char(n)
        integer, len :: n = 4
        integer, private :: counter = 0
        character(len=n), private, allocatable :: array(:)
        
    contains
        procedure, nopass :: add => append_char
        !procedure, pass(arl) :: add => append_char !-> error
    end type
    
contains
    
subroutine append_char(arl,item)
class(list_char) :: arl
character(len=arl%n), intent(in) :: item
!
character(len=arl%n), allocatable :: tarry(:)
!
    if (arl%counter .eq. 0) then
        if (allocated(arl%array)) deallocate(arl%array)
        ! ...
        ! ...
    endif
end subroutine
end module
   
! stub needed for compiling
program listtest
use list

end program

 

Best regards,

Rene

 

0 Kudos
1 Reply
Highlighted
Black Belt
1 View

Still fails in 19.0. Please

Still fails in 19.0. Please report it at https://supporttickets.intel.com/?lang=en-US

Steve (aka "Doctor Fortran") - https://stevelionel.com/drfortran
0 Kudos