Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/associate_36.f90 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | |
children |
line wrap: on
line source
! { dg-do run } ! ! Test the fix for PR83344. ! ! Contributed by Janne Blomqvist <jb@gcc.gnu.org> ! and Steve Kargl <kargl@gcc.gnu.org> ! program foo implicit none character(len=1) a character(len=2) b character(len=3) c a = 'a' call bah(a, len (a)) b = 'bb' call bah(b, len (b)) c = 'ccc' call bah(c, len (c)) contains subroutine bah(x, clen) implicit none integer :: clen character(len=*), intent(in) :: x associate(y => x) if (len(y) .ne. clen) stop 1 if (y .ne. x) stop 2 end associate end subroutine bah end program foo