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