43 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Test that NULLIFY works3 4Module share5 Real, Pointer :: rp6 Procedure(Real), Pointer :: mprp7End Module share8 9Program nullifytest10Use share11 12INTEGER, PARAMETER :: maxvalue=102413 14Type dt15 Integer :: l = 316End Type17Type t18 Type(dt),Pointer :: p19End Type20 21Type(t),Allocatable :: x(:)22Type(t),Pointer :: y(:)23Type(t),Pointer :: z24 25Integer, Pointer :: pi26Procedure(Real), Pointer :: prp27 28Allocate(rp)29Nullify(rp)30 31Allocate(x(3))32Nullify(x(2)%p)33 34Nullify(y(2)%p)35 36Nullify(pi)37Nullify(prp)38Nullify(mprp)39 40Nullify(z%p)41 42End Program43