1*6c1ac141SIvan Zhechev! RUN: %python %S/test_errors.py %s %flang_fc1 264ab3302SCarolineConcatto! Test that NULLIFY works 364ab3302SCarolineConcatto 464ab3302SCarolineConcattoModule share 564ab3302SCarolineConcatto Real, Pointer :: rp 664ab3302SCarolineConcatto Procedure(Real), Pointer :: mprp 764ab3302SCarolineConcattoEnd Module share 864ab3302SCarolineConcatto 964ab3302SCarolineConcattoProgram nullifytest 1064ab3302SCarolineConcattoUse share 1164ab3302SCarolineConcatto 1264ab3302SCarolineConcattoINTEGER, PARAMETER :: maxvalue=1024 1364ab3302SCarolineConcatto 1464ab3302SCarolineConcattoType dt 1564ab3302SCarolineConcatto Integer :: l = 3 1664ab3302SCarolineConcattoEnd Type 1764ab3302SCarolineConcattoType t 1864ab3302SCarolineConcatto Type(dt),Pointer :: p 1964ab3302SCarolineConcattoEnd Type 2064ab3302SCarolineConcatto 2164ab3302SCarolineConcattoType(t),Allocatable :: x(:) 2264ab3302SCarolineConcattoType(t),Pointer :: y(:) 2364ab3302SCarolineConcattoType(t),Pointer :: z 2464ab3302SCarolineConcatto 2564ab3302SCarolineConcattoInteger, Pointer :: pi 2664ab3302SCarolineConcattoProcedure(Real), Pointer :: prp 2764ab3302SCarolineConcatto 2864ab3302SCarolineConcattoAllocate(rp) 2964ab3302SCarolineConcattoNullify(rp) 3064ab3302SCarolineConcatto 3164ab3302SCarolineConcattoAllocate(x(3)) 3264ab3302SCarolineConcattoNullify(x(2)%p) 3364ab3302SCarolineConcatto 3464ab3302SCarolineConcattoNullify(y(2)%p) 3564ab3302SCarolineConcatto 3664ab3302SCarolineConcattoNullify(pi) 3764ab3302SCarolineConcattoNullify(prp) 3864ab3302SCarolineConcattoNullify(mprp) 3964ab3302SCarolineConcatto 4064ab3302SCarolineConcattoNullify(z%p) 4164ab3302SCarolineConcatto 4264ab3302SCarolineConcattoEnd Program 43