I have a crash when returning a pointer to an allocated type in a function. When the pointer is deallocated before returning, the destructor of the type is called with a wrong argument. I don't know if this has been fixed in a newer compiler. I am on
Intel(R) Visual Fortran Intel(R) 64 Compiler for applications running on Intel(R) 64, Version 18.104.22.1687 Build 20170817
See below code. I'm sorry if I have done something that is not valid fortran or made a mistake..
program main use crash_module implicit none type(struct), pointer :: x ! Using: ! Intel(R) Visual Fortran Intel(R) 64 Compiler for applications ! running on Intel(R) 64, Version 22.214.171.1247 Build 20170817 x => crash() end program
module crash_module implicit none private public :: struct, crash type :: struct private integer :: filler1 = 123 integer :: filler2 = 123 integer :: filler3 = 123 integer :: filler4 = 123 integer, pointer :: p => null() contains private final :: destructor end type contains impure elemental subroutine destructor(this) type(struct), intent(inout) :: this ! See that filler1, 2, 3, 4 have wrong values (should be 123). ! Crash because p is not null if (associated(this%p)) deallocate(this%p) end subroutine function crash() result(attribute) type(struct), pointer :: attribute allocate(attribute) ! destructor is called with a bogus argument. deallocate(attribute) end function end module
You are destructing the result of the function before the function can return. If this would succeed, would the result not be a dangling pointer? I can imagine this to work if you nullify the pointer after deallocation.