assumed_charlen_function_4.f90

来自「用于进行gcc测试」· F90 代码 · 共 18 行

! { dg-do compile }
! Tests the fix for PR28600 in which the declaration for the
! character length n, would be given the DECL_CONTEXT of 'gee'
! thus causing an ICE.
!
! Contributed by Francois-Xavier Coudert  <[e-mail]>
!
subroutine bar(s, n)
 integer n
 character s*(n)
 character*3, dimension(:), pointer :: m
 s = ""
contains
 subroutine gee
    m(1) = s(1:3)
 end subroutine gee
end subroutine bar