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 ") STOP 1
18end program
19