function_charlen_1.f90

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

! { 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 :: strlen = 5
end module m

character(strlen) function test()
  use m
  test = 'A'
end function test

  interface
    character(strlen) function test()
      use m
    end function test
  end interface
  print *, test()
end
! { dg-final { cleanup-modules "m" } }