1! { dg-do run }
2! Verify that the changes made to character dummy arguments for bind(c) 
3! procedures doesn't break non-bind(c) routines.
4! PR fortran/32732
5subroutine bar(a)
6  use, intrinsic :: iso_c_binding, only: c_char
7  character(c_char), value :: a
8  if(a /= c_char_'a') call abort()
9end subroutine bar
10
11subroutine bar2(a)
12  use, intrinsic :: iso_c_binding, only: c_char
13  character(c_char) :: a
14  if(a /= c_char_'a') call abort()
15end subroutine bar2
16
17use iso_c_binding
18implicit none
19interface
20  subroutine bar(a)
21    import
22    character(c_char),value :: a
23  end subroutine bar
24  subroutine bar2(a)
25    import
26    character(c_char) :: a
27  end subroutine bar2
28end interface
29 character(c_char) :: z
30 z = 'a'
31 call bar(z)
32 call bar2(z)
33end
34