blob: 65f2464e54ed3ac337015a8ac026228729d07f7a [file] [log] [blame]
! { dg-do run }
!
! Test the fix for PR93833, which ICEd as shown.
!
! Contributed by Gerhard Steinmetz <gscfq@t-online.de>
!
program p
character(:), allocatable :: c
c = "wxyz"
contains
subroutine s
associate (y => [c])
if (any(y /= [c])) stop 1
end associate
end
end