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 :: l = 2
14 integer, parameter :: l = 5
15 character(len = 10) :: c
18 if (g () /= "2") call abort
20 character(len = l) function f ()
22 if (len (f) /= 2) call abort
25 character(len = len (cl)) function g ()
28 if (len (g) == 2) g= "2"
31 ! { dg-final { cleanup-modules "m" } }