if ( associated(pointertoreal) ) !...