Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/intent_out_5.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
11 integer, dimension(:), allocatable :: a 11 integer, dimension(:), allocatable :: a
12 end type container_t 12 end type container_t
13 13
14 type(container_t) :: container 14 type(container_t) :: container
15 15
16 if (container%n /= 42) call abort() 16 if (container%n /= 42) STOP 1
17 if (allocated(container%a)) call abort() 17 if (allocated(container%a)) STOP 2
18 container%n = 1 18 container%n = 1
19 allocate(container%a(50)) 19 allocate(container%a(50))
20 call init (container) 20 call init (container)
21 if (container%n /= 42) call abort() 21 if (container%n /= 42) STOP 3
22 if (allocated(container%a)) call abort() 22 if (allocated(container%a)) STOP 4
23 contains 23 contains
24 subroutine init (container) 24 subroutine init (container)
25 type(container_t), intent(out) :: container 25 type(container_t), intent(out) :: container
26 end subroutine init 26 end subroutine init
27 end program main 27 end program main