------- Additional Comments From tobi at gcc dot gnu dot org 2004-07-11 17:10 -------
Reduced testcase:
SUBROUTINE A(p,LEN)
CHARACTER(LEN=LEN), DIMENSION(:), POINTER :: p
IF ( .NOT. ASSOCIATED(p) ) THEN
END IF
END SUBROUTINE A
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15809