35 lines
672 B
Fortran
35 lines
672 B
Fortran
! { 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 <juergen.reuter@desy.de>.
|
|
!
|
|
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
|