topic Re: Runtime error with polymorphic pointer in Intel® Fortran Compiler

Runtime error with polymorphic pointer

MDK — Tue, 15 Dec 2009 16:47:38 GMT

[plain]module ifort_bug_mod

    implicit none
    
    type :: base_t
        integer :: dummy = 0
    end type
    
end module


program ifort_bug

    use ifort_bug_mod
    
    implicit none
    type(base_t), pointer :: p_ok => null()
    class(base_t), pointer :: p_err => null()
    type(base_t), target :: base

    p_ok => base ! ok
    p_err => base  ! runtime error

end program[/plain]

As far as I can tell this is a compiler bug (v11.1.051). As you can see, simply associating a polymorphic pointer with a target causes a runtime error.

Re: Runtime error with polymorphic pointer

thomas_boehme — Tue, 15 Dec 2009 17:00:26 GMT

Quoting - MDK

[plain]module ifort_bug_mod

    implicit none
    
    type :: base_t
        integer :: dummy = 0
    end type
    
end module


program ifort_bug

    use ifort_bug_mod
    
    implicit none
    type(base_t), pointer :: p_ok => null()
    class(base_t), pointer :: p_err => null()
    type(base_t), target :: base

    p_ok => base ! ok
    p_err => base  ! runtime error

end program[/plain]

As far as I can tell this is a compiler bug (v11.1.051). As you can see, simply associating a polymorphic pointer with a target causes a runtime error.

That's a bug introduced in v11.1.051. I already reported in in following thread:
http://software.intel.com/en-us/forums/showthread.php?t=69682

As a workaround, you can disable Diagnostics->Generate Interface Blocks and Diagnostics->Check Routine Interfaces. See the above mentioned thread for details.

regards,
Thomas

Re: Runtime error with polymorphic pointer

MDK — Tue, 15 Dec 2009 17:10:57 GMT

Quoting - thomas_boehme

Thanks!