2 ! Tests passing of character array initialiser as actual argument.
4 ! Contributed by Paul Thomas pault@gcc.gnu.org
5 program char_initialiser
6 character*5, dimension(3) :: x
7 character*5, dimension(:), pointer :: y
8 x=(/"is Ja","ne Fo","nda"/)
9 call sfoo ("is Ja", x(1))
10 call afoo ((/"is Ja","ne Fo","nda"/), x)
11 y => pfoo ((/"is Ja","ne Fo","nda"/))
14 subroutine sfoo(ch1, ch2)
15 character*(*) :: ch1, ch2
16 if (ch1 /= ch2) call abort ()
18 subroutine afoo(ch1, ch2)
19 character*(*), dimension(:) :: ch1, ch2
20 if (any(ch1 /= ch2)) call abort ()
23 character*5, dimension(:), target :: ch2
24 character*5, dimension(:), pointer :: pfoo