2 ! Test assignments from character pointer functions with dependencies
3 ! are correctly resolved.
4 ! Provided by Paul Thomas pault@gcc.gnu.org
5 program char_pointer_dependency
7 character*4, pointer :: c2(:)
11 if (c2(1) /= "efgh") call abort ()
12 if (c2(2) /= "abcd") call abort ()
15 function afoo (ac0
) result (ac1
)
18 character*4, pointer :: ac1(:)
24 end program char_pointer_dependency