gcc/testsuite/gfortran.dg/pr84957.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

! { 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