add C->Fortran string array

Author: scivision

src/CMakeLists.txt

@@ -53,6 +53,10 @@ set_target_properties(c_fortran_struct PROPERTIES LINKER_LANGUAGE C)
 target_compile_definitions(c_fortran_struct PRIVATE $<$<BOOL:${MSVC}>:_CRT_SECURE_NO_WARNINGS>)
 add_test(NAME C_Fortran_struct COMMAND c_fortran_struct)
 
+add_executable(c_fortran_string_array c/string_array_main.c)
+target_link_libraries(c_fortran_string_array PRIVATE string_array_fortran)
+set_target_properties(c_fortran_string_array PROPERTIES LINKER_LANGUAGE C)
+add_test(NAME C_Fortran_string_array COMMAND c_fortran_string_array)
 
 # -- C++ calling Fortran
 add_executable(cxx_call_fortran cxx/math_main.cxx)

src/c/string_array_main.c

@@ -0,0 +1,7 @@
+void print_cstring_array(int* n, char* []);
+
+int main(void) {
+  char* cstring[] = { "abc", "def", "ghi", "jkl" };
+  int n = 4;
+  print_cstring_array(&n, cstring);
+}

src/fortran/CMakeLists.txt

@@ -3,3 +3,5 @@ add_library(math_fortran OBJECT math_lib.f90)
 add_library(error_fortran OBJECT error_lib.f90)
 
 add_library(struct_fortran OBJECT struct_lib.f90)
+
+add_library(string_array_fortran OBJECT string_array_lib.f90)

src/fortran/meson.build

@@ -3,3 +3,5 @@ math_fortran = library('math_fortran', 'math_lib.f90')
 error_fortran = library('error_fortran', 'error_lib.f90')
 
 struct_fortran = library('struct_fortran', 'struct_lib.f90')
+
+string_array_fortran = library('string_array_fortran', 'string_array_lib.f90')

src/fortran/string_array_lib.f90

@@ -0,0 +1,23 @@
+module str_mod
+
+use iso_c_binding, only: c_ptr, c_int, c_f_pointer, c_loc, c_null_char
+
+implicit none
+
+contains
+
+subroutine print_cstring_array(n, cstring) bind(C)
+
+integer(kind=c_int),               intent(in) :: n
+type(c_ptr), dimension(n), target, intent(in) :: cstring
+character, pointer :: fstring(:)
+integer :: i
+
+do i = 1, n
+  call c_f_pointer(cstring(i), fstring, [4])
+  write(*,*) fstring
+end do
+
+end subroutine print_cstring_array
+
+end module str_mod

src/meson.build

@@ -71,9 +71,14 @@ c_fortran_struct = executable('c_fortran_struct',
   link_with: struct_fortran,
   link_language: 'fortran'
 )
-test('C Fortran struct', c_fortran_struct,
-  timeout: 5
+test('C Fortran struct', c_fortran_struct, timeout: 5)
+
+c_fortran_string_array = executable('c_fortran_string_array',
+  sources: files('c/string_array_main.c'),
+  link_with: string_array_fortran,
+  link_language: 'fortran'
 )
+test('C Fortran string array', c_fortran_string_array, timeout: 5)
 
 # -- C++ calling Fortran
 cxx_call_fortran = executable('cxx_call_fortran',