1 ! Related to PR 15326. Compare functions that return string pointers with
2 ! functions that return strings.
7 character (len
= 30), target
:: string
10 call test (f2 (50), 50)
12 call test (f4 (70), 70)
17 character (len
= 30) :: f1
23 character (len
= i
) :: f2
28 character (len
= 30), pointer :: f3
34 character (len
= i
), pointer :: f4
38 subroutine indirect (i
)
44 end subroutine indirect
46 subroutine test (string
, length
)
47 character (len
= *) :: string
48 integer, intent (in
) :: length
49 if (len (string
) .ne
. length
) call abort