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
