mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
30 lines
641 B
Fortran
30 lines
641 B
Fortran
! { 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
|