1! { dg-do run }
2!
3! Test the fix for PR64120 in which the initialisation of the
4! string length of 's' was not being done.
5!
6! Contributed by Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
7!
8   call g(1)
9   call g(2)
10contains
11  subroutine g(x)
12      integer :: x
13      character(len=x), allocatable :: s
14      allocate(s)
15      if (len(s) .ne. x) stop x
16  end subroutine
17end
18