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