blob: adace7f343ccadd97caa43adab722e9fe55e82b6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
! { dg-do run }
! { dg-additional-sources c_char_driver.c }
! Verify that character dummy arguments for bind(c) procedures can work both
! by-value and by-reference when called by either C or Fortran.
! PR fortran/32732
module c_char_tests
use, intrinsic :: iso_c_binding, only: c_char
implicit none
contains
subroutine param_test(my_char, my_char_2) bind(c)
character(c_char), value :: my_char
character(c_char), value :: my_char_2
if(my_char /= c_char_'y') STOP 1
if(my_char_2 /= c_char_'z') STOP 2
call sub1(my_char)
end subroutine param_test
subroutine sub0() bind(c)
call param_test('y', 'z')
end subroutine sub0
subroutine sub1(my_char_ref) bind(c)
character(c_char) :: my_char_ref
if(my_char_ref /= c_char_'y') STOP 3
end subroutine sub1
end module c_char_tests
|