topic The associated-ness of in Intel® Fortran Compiler

associated problem

Blane_J_ — Mon, 12 Dec 2016 09:16:20 GMT

program main
    implicit none

    type :: t
        integer :: a
    end type t

    type(t), pointer :: tp
    integer, pointer :: i

    if(associated(tp)) write(*,*) "tp is associated."
    if(associated(i )) write(*,*) "i  is associated."

end program main

Code above outputs a strange result of "i is associated" but tp is not, why is that ?

Intel(R) Visual Fortran Compiler 17.0.0.109 [IA-32] is the current compiler, and I also tried Linux version of ifort 13.1.1 and nothing wrong appears, thanks for reply.

The associated-ness of

Arjen_Markus — Mon, 12 Dec 2016 09:20:43 GMT

The associated-ness of uninitialised pointer variables is undefined. So it could actually be true or false depending on the phase of the moon.

To be sure you have reliable results, always initialise them first, for instance:

type(t), pointer :: tp => null()

That's interesting about the

Blane_J_ — Mon, 12 Dec 2016 09:35:27 GMT

That's interesting about the moon :)