1! { dg-do compile }
2! Fallout from the patch for PR 14771
3! Testcase by Erik Zeek
4program test
5    call bob(5)
6contains
7    subroutine bob(n)
8        integer, intent(in) :: n
9        character(len=n) :: temp1
10        character(len=(n)) :: temp2 ! Fails here
11    end subroutine bob
12end program test
13