1! { dg-do compile }
2! { dg-options "-std=legacy" }
3!
4! Tests the fix for PR28600 in which the declaration for the
5! character length n, would be given the DECL_CONTEXT of 'gee'
6! thus causing an ICE.
7!
8! Contributed by Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
9!
10subroutine bar(s, n)
11 integer n
12 character s*(n)
13 character*3, dimension(:), pointer :: m
14 s = ""
15contains
16 subroutine gee
17    m(1) = s(1:3)
18 end subroutine gee
19end subroutine bar
20