I am using ifort 11.1.056 and I am having problems with the associate construct in a pure subroutine. This is a simple test case.
pure subroutine test()
implicit none
type abc_t
real(8) :: d
real(8) :: e
end type abc_t
integer :: i
type(abc_t) :: abc
i = 0
abc%d = 0
associate (d => abc%d, e => abc%e)
do while (i<10)
i = i + 1
d = d + i
end do
end associate
end subroutine test
will give me the error,
"test.f90(18): error #7617: This host associated object appears in a 'defining' context in a PURE procedure or in an internal procedure contained in a PURE procedure.
i = i + 1"
however, if i use a normal do loop
associate (d => abc%d, e => abc%e)
do i = 1, 10
d = d + i
end do
end associate
then it compiles fine, as it does when i put the associate inside the do while loop
do while (i<=10)
associate (d => abc%d, e => abc%e)
i = i + 1
d = d + i
end associate
end do
Is this a bug or is there really a problem with using while loops inside associate?
Thanks
