! { dg-do run } ! ! PR fortran/40851 ! ! Make sure the an INTENT(OUT) dummy is not initialized ! when it is a pointer. ! ! Contributed by Juergen Reuter . ! program main type :: string character,dimension(:),allocatable :: chars end type string type :: string_container type(string) :: string end type string_container type(string_container), target :: tgt type(string_container), pointer :: ptr ptr => tgt call set_ptr (ptr) if (associated(ptr)) call abort() contains subroutine set_ptr (ptr) type(string_container), pointer, intent(out) :: ptr ptr => null () end subroutine set_ptr end program main