function_charlen_2.f90

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

! { dg-do compile }
! Tests the fix for PR34429 in which function charlens that were
! USE associated would cause an error.
!
! Contributed by Tobias Burnus <[e-mail]>
!
module m
  integer, parameter :: l = 2
  character(2) :: cl
end module m

program test
  implicit none
  integer, parameter :: l = 5
  character(len = 10) :: c
  character(4) :: cl
  c = f ()
  if (g () /= "2") call abort
contains
  character(len = l) function f ()
    use m
    if (len (f) /= 2) call abort
    f = "a"
  end function f
  character(len = len (cl)) function g ()
    use m
    g = "4"
    if (len (g) == 2) g= "2"
  end function g
end program test
! { dg-final { cleanup-modules "m" } }