2 ! { dg-options "-std=legacy" }
4 ! Tests passing of character array initialiser as actual argument.
6 ! Contributed by Paul Thomas pault@gcc.gnu.org
7 program char_initialiser
8 character*5, dimension(3) :: x
9 character*5, dimension(:), pointer :: y
10 x=(/"is Ja","ne Fo","nda "/)
11 call sfoo ("is Ja", x(1))
12 call afoo ((/"is Ja","ne Fo","nda "/), x)
13 y => pfoo ((/"is Ja","ne Fo","nda "/))
16 subroutine sfoo(ch1, ch2)
17 character*(*) :: ch1, ch2
18 if (ch1 /= ch2) call abort ()
20 subroutine afoo(ch1, ch2)
21 character*(*), dimension(:) :: ch1, ch2
22 if (any(ch1 /= ch2)) call abort ()
25 character*5, dimension(:), target :: ch2
26 character*5, dimension(:), pointer :: pfoo