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