5 ! Check that non-referenced variables are default
6 ! initialized if they are INTENT(OUT) or function results.
7 ! Only the latter (i.e. "x=f()") was not working before
12 integer, target :: tgt
14 integer, pointer:: p => null ()
19 if (associated(x%p) .or. x%i /= 3) call abort ()
23 if (associated(y(1)%p) .or. any(y(:)%i /= 3)) call abort ()
27 if (associated(y(1)%p) .or. any(y(:)%i /= 3)) call abort ()
29 function f() result (fr)
34 type(A), intent(out) :: x(n:n+2)
37 type(A), intent(out) :: x(:)