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