Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/allocate_deferred_char_scalar_2.f03 @ 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 } ! Test the fix for PR47519, in which the character length was not ! calculated for the SOURCE expressions below and an ICE resulted. ! ! Contributed by Tobias Burnus <burnus@gcc.gnu.org> ! program note7_35 implicit none character(:), allocatable :: name character(:), allocatable :: src integer n n = 10 allocate(name, SOURCE=repeat('x',n)) if (name .ne. 'xxxxxxxxxx') STOP 1 if (len (name) .ne. 10 ) STOP 2 deallocate(name) src = 'xyxy' allocate(name, SOURCE=repeat(src,n)) if (name(37:40) .ne. 'xyxy') STOP 3 if (len (name) .ne. 40 ) STOP 4 end program note7_35