diff options
Diffstat (limited to 'gcc-4.9/gcc/testsuite/gfortran.dg/derived_init_3.f90')
| -rw-r--r-- | gcc-4.9/gcc/testsuite/gfortran.dg/derived_init_3.f90 | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/derived_init_3.f90 b/gcc-4.9/gcc/testsuite/gfortran.dg/derived_init_3.f90 new file mode 100644 index 000000000..a1c4a0c7e --- /dev/null +++ b/gcc-4.9/gcc/testsuite/gfortran.dg/derived_init_3.f90 @@ -0,0 +1,34 @@ +! { 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 |