Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/derived_init_3.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { 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)) STOP 1 contains subroutine set_ptr (ptr) type(string_container), pointer, intent(out) :: ptr ptr => null () end subroutine set_ptr end program main