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