1! RUN: %python %S/test_errors.py %s %flang_fc1 2module m 3 integer, target :: n 4 contains 5 function ptr() 6 integer, pointer :: ptr 7 ptr => n 8 end 9 subroutine s1(p) 10 integer, pointer, intent(in) :: p 11 end 12 subroutine s2(p) 13 integer, pointer, intent(in out) :: p 14 end 15end 16 17program test 18 use m 19 integer, pointer :: p 20 p => ptr() ! ok 21 ptr() = 1 ! ok 22 call s1(ptr()) ! ok 23 call s1(null()) ! ok 24 !ERROR: Actual argument associated with INTENT(IN OUT) dummy argument 'p=' is not definable 25 !BECAUSE: 'ptr()' is not a definable pointer 26 call s2(ptr()) 27end 28