1 ! Program to test caracter string return values
4 character(len=10) :: test
8 function test2 () result (r)
16 character(len=15) :: s
17 character(len=10) :: test
18 character(len=5) :: test2
21 if (s .ne. "World") call abort
23 s = "Hello " // test ()
24 if (s .ne. test2 () //" World") call abort