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