Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/derived_init_3.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
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)) call abort() contains subroutine set_ptr (ptr) type(string_container), pointer, intent(out) :: ptr ptr => null () end subroutine set_ptr end program main