! { dg-do compile } | |
! PR 84957 | |
! | |
! Testcase derived from PR by G. Steinmetz <gscfq@t-online.de> | |
! | |
function f() result(u) | |
entry g() result(v) | |
contains | |
function v(x) result(z) | |
character :: x(2) | |
character(sum(len_trim(x))) :: z | |
end function v | |
function u(x) result(z) | |
character :: x(2) | |
character(sum(len_trim(x))) :: z | |
end function u | |
end function f |