program mainimplicit nonereal,dimension(:),pointer::xx=>null()x=>test()if(.not.associated(x))call abortif(size(x).ne.10)call abortcontains function test()real,dimension(:),pointer::testif(associated(x))call abortallocate(test(10))if(associated(x))call abortend function testend program main