Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/associate_34.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 } ! ! Test the fix for PR84115. ! ! Contributed by G Steinmetz <gscfq@t-online.de> ! character(:), allocatable :: chr allocate (chr, source = "abc") call s(chr, "abc") chr = "mary had a little lamb" call s(chr, "mary had a little lamb") deallocate (chr) contains subroutine s(x, carg) character(:), allocatable :: x character(*) :: carg associate (y => x) if (y .ne. carg) STOP 1 end associate end end