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