1! Test assumed length character functions.
2
3character*(*) function f()
4  f = "Hello"
5end function
6
7character*6 function g()
8  g = "World"
9end function
10
11program straret
12  character*6 f, g
13  character*12 v
14
15
16  v = f() //  g()
17  if (v .ne. "Hello World ") call abort ()
18end program
19