1! { dg-do compile }
2! PR 84957
3!
4! Testcase derived from PR by G. Steinmetz  <gscfq@t-online.de>
5!
6function f() result(u)
7  entry g() result(v)
8contains
9  function v(x) result(z)
10    character :: x(2)
11    character(sum(len_trim(x))) :: z
12  end function v
13  function u(x) result(z)
14    character :: x(2)
15    character(sum(len_trim(x))) :: z
16  end function u
17end function f
18