I would appreciate it if Intel could try this code with update 7 or the end of year release and provide confirmation this bug is fixed.
While the code below compiles and runs fine as is, if you comment out the temporary pointer and uncomment the equivalent call through the array subscript selector the code will crash at the call site.
[fortran]module M14
type B
procedure(foo), pass, pointer :: f
end type B
type, extends (B) :: D
integer :: i
end type D
type C
class(B), pointer :: b
end type C
type F
type(C) :: arena(5)
end type F
contains
subroutine foo (c, i)
class(B), intent(inout) :: c
integer, intent(in) :: i
print *, 'ok: ', i
end subroutine foo
subroutine build
type(F) :: v
class(B), pointer :: p
allocate (D:: v%arena(1)%b)
p => v%arena(1)%b
p%f => foo !OK: if called through a temporary pointer
!call v%arena(1)%b%f (1); calls through a subscript crash at runtime
call p%f (1)
end subroutine build
end module M14
program C14
use M14
call build
end program C14[/fortran]
