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