gcc/testsuite/gfortran.dg/assumed_charlen_function_4.f90

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