1! { dg-do run }
2!
3program test
4  character(2_8) :: c(2)
5  logical :: l(2)
6
7  c = "aa"
8  l = c .eq. "aa"
9  if (any (.not. l)) call abort
10
11  call foo ([c(1)])
12  l = c .eq. "aa"
13  if (any (.not. l)) call abort
14
15contains
16
17  subroutine foo (c)
18    character(2) :: c(1)
19  end subroutine foo
20
21end
22