1 ! Related to PR 15326. Try calling string functions whose lengths depend
2 ! on a dummy procedure.
4 integer pure function double (x)
5 integer, intent (in) :: x
13 integer pure function double (x)
14 integer, intent (in) :: x
18 call test (f1 (double, 100), 200)
20 call indirect (double)
25 integer pure function fn (x)
26 integer, intent (in) :: x
29 character (len = fn (i)) :: f1
33 subroutine indirect (fn)
35 integer pure function fn (x)
36 integer, intent (in) :: x
39 call test (f1 (fn, 100), 200)
40 end subroutine indirect
42 subroutine test (string, length)
43 character (len = *) :: string
44 integer, intent (in) :: length
45 if (len (string) .ne. length) call abort