1! { dg-do compile }
2! Tests the fix for PR34429 in which function charlens that were
3! USE associated would cause an error.
4!
5! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
6!
7module m
8  integer, parameter :: strlen = 5
9end module m
10
11character(strlen) function test()
12  use m
13  test = 'A'
14end function test
15
16  interface
17    character(strlen) function test()
18      use m
19    end function test
20  end interface
21  print *, test()
22end
23