5 ! Make sure the an INTENT(OUT) dummy is not initialized
6 ! when it is a pointer.
8 ! Contributed by Juergen Reuter <juergen.reuter@desy.de>.
13 character,dimension(:),allocatable :: chars
16 type :: string_container
17 type(string) :: string
18 end type string_container
20 type(string_container), target :: tgt
21 type(string_container), pointer :: ptr
25 if (associated(ptr)) call abort()
29 subroutine set_ptr (ptr)
30 type(string_container), pointer, intent(out) :: ptr
32 end subroutine set_ptr