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