Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/allocate_assumed_charlen_1.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! ! PR82934: Segfault on compilation in trans-stmt.c:5919(8.0.0). ! The original report only had one item in the allocate list. This ! has been doubled up to verify that the correct string length is ! is used in the allocation. ! ! Contributed by FortranFan on clf. ! character(len=42), allocatable :: foo character(len=22), allocatable :: foofoo call alloc( foo , foofoo) if (len(foo) .ne. 42) STOP 1 if (len(foofoo) .ne. 22) STOP 2 contains subroutine alloc( bar, barbar ) character(len=*), allocatable :: bar, barbar allocate( character(len=*) :: bar , barbar) ! <= Here! end subroutine end