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