1! { dg-do run }
2! Verify by-value passing of character arguments w/in Fortran to a bind(c) 
3! procedure.  
4! PR fortran/32732
5module pr32732
6  use, intrinsic :: iso_c_binding, only: c_char
7  implicit none
8contains
9  subroutine test(a) bind(c)
10    character(kind=c_char), value :: a
11    call test2(a)
12  end subroutine test
13  subroutine test2(a) bind(c)
14    character(kind=c_char), value :: a
15    if(a /= c_char_'a') call abort ()
16    print *, 'a=',a
17  end subroutine test2
18end module pr32732
19
20program main
21  use pr32732
22  implicit none
23  call test('a')
24end program main
25