2 ! Tests the fix for PR34429 in which function charlens that were
3 ! USE associated would cause an error.
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
8 integer, parameter :: strlen = 5
11 character(strlen) function test()
17 character(strlen) function test()
23 ! { dg-final { cleanup-modules "m" } }