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