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") ! { dg-warning "Character length of actual argument shorter" }
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
))) STOP 1