------- Additional Comments From rsandifo at gcc dot gnu dot org 2005-09-07
16:58 -------
Hmm. I supposed I'd better check. Is the following code
also valid:
program main
implicit none
real, dimension (:), pointer :: x
x => null()
x => test ()
contains
function test
real, dimension (:), pointer :: test
if (associated (x)) call abort
allocate (test (10))
if (associated (x)) call abort
end function test
end program main
I've not read anything in the standard that forbids it, but I'd
appreciate it if more seasoned folks could comment.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23373
