1 ! Check that character valued statement functions honour length parameters
10 ! Expression longer than function, actual arg shorter than dummy.
11 call check (foo("Hello"), "Hello Wo")
13 ! Expression shorter than function, actual arg longer than dummy.
14 ! Result shorter than type
16 call check (bar(s), "Hello World ")
18 subroutine check(a, b)
19 character (len=*) :: a, b
21 if ((a .ne. b) .or. (len(a) .ne. len(b))) call abort ()