Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/intent_out_5.f90 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do run } ! ! PR fortran/41479 ! ! Contributed by Juergen Reuter. ! program main type :: container_t integer :: n = 42 ! if the following line is omitted, the problem disappears integer, dimension(:), allocatable :: a end type container_t type(container_t) :: container if (container%n /= 42) STOP 1 if (allocated(container%a)) STOP 2 container%n = 1 allocate(container%a(50)) call init (container) if (container%n /= 42) STOP 3 if (allocated(container%a)) STOP 4 contains subroutine init (container) type(container_t), intent(out) :: container end subroutine init end program main