gcc/testsuite/gfortran.dg/c_char_tests_2.f03

   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
   5 subroutine bar(a)
   6   use, intrinsic :: iso_c_binding, only: c_char
   7   character(c_char), value :: a
   8   if(a /= c_char_'a') STOP 1
   9 end subroutine bar
  10
  11 subroutine bar2(a)
  12   use, intrinsic :: iso_c_binding, only: c_char
  13   character(c_char) :: a
  14   if(a /= c_char_'a') STOP 2
  15 end subroutine bar2
  16
  17 use iso_c_binding
  18 implicit none
  19 interface
  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
  28 end interface
  29  character(c_char) :: z
  30  z = 'a'
  31  call bar(z)
  32  call bar2(z)
  33 end