fortran main error example

Author: scivision

src/CMakeLists.txt

@@ -16,6 +16,13 @@ target_link_libraries(fortran_cxx_struct PRIVATE struct_cxx)
 set_target_properties(fortran_cxx_struct PROPERTIES LINKER_LANGUAGE Fortran)
 add_test(NAME Fortran_C++_struct COMMAND fortran_cxx_struct)
 
+add_executable(fortran_cxx_error fortran/error_main.f90)
+target_link_libraries(fortran_cxx_error PRIVATE error_cxx)
+set_target_properties(fortran_cxx_error PROPERTIES LINKER_LANGUAGE Fortran)
+add_test(NAME Fortran_C++_error
+COMMAND ${CMAKE_COMMAND} -Dexe=$<TARGET_FILE:fortran_cxx_error> -Dexp_code=42 -P ${PROJECT_SOURCE_DIR}/cmake/test_error.cmake
+)
+
 # -- Fortran calling C
 add_executable(fortran_c_math fortran/math_main.f90)
 target_link_libraries(fortran_c_math PRIVATE math_c)
@@ -25,20 +32,28 @@ add_executable(fortran_c_struct fortran/struct_main.f90)
 target_link_libraries(fortran_c_struct PRIVATE struct_c)
 add_test(NAME Fortran_C_struct COMMAND fortran_c_struct)
 
+add_executable(fortran_c_error fortran/error_main.f90)
+target_link_libraries(fortran_c_error PRIVATE error_c)
+add_test(NAME Fortran_C_error
+COMMAND ${CMAKE_COMMAND} -Dexe=$<TARGET_FILE:fortran_c_error> -Dexp_code=42 -P ${PROJECT_SOURCE_DIR}/cmake/test_error.cmake
+)
+
 # -- C calling Fortran
 add_executable(c_fortran_error c/error_main.c)
 target_link_libraries(c_fortran_error PRIVATE error_fortran)
 # LINKER_LANGUAGE option is necessary for ifort at least
 set_target_properties(c_fortran_error PROPERTIES LINKER_LANGUAGE C)
 add_test(NAME C_Fortran_error
-  COMMAND ${CMAKE_COMMAND} -Dexe=$<TARGET_FILE:c_fortran_error> -Dexp_code=42 -P ${PROJECT_SOURCE_DIR}/cmake/test_error.cmake
+COMMAND ${CMAKE_COMMAND} -Dexe=$<TARGET_FILE:c_fortran_error> -Dexp_code=42 -P ${PROJECT_SOURCE_DIR}/cmake/test_error.cmake
 )
 
 add_executable(c_fortran_struct c/struct_main.c)
 target_link_libraries(c_fortran_struct PRIVATE struct_fortran)
 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)
 
+
 # -- C++ calling Fortran
 add_executable(cxx_call_fortran cxx/math_main.cxx)
 target_link_libraries(cxx_call_fortran PRIVATE math_fortran)
@@ -56,6 +71,7 @@ add_executable(cxx_fortran_struct cxx/struct_main.cxx)
 target_include_directories(cxx_fortran_struct PRIVATE ${CMAKE_CURRENT_SOURCE_DIR}/c)
 target_link_libraries(cxx_fortran_struct PRIVATE struct_fortran)
 set_target_properties(cxx_fortran_struct PROPERTIES LINKER_LANGUAGE CXX)
+target_compile_definitions(cxx_fortran_struct PRIVATE $<$<BOOL:${MSVC}>:_CRT_SECURE_NO_WARNINGS>)
 add_test(NAME C++_Fortran_struct COMMAND cxx_fortran_struct)
 
 # -- test wrapup

src/c/CMakeLists.txt

@@ -1,3 +1,5 @@
 add_library(math_c OBJECT math_lib.c)
 
 add_library(struct_c OBJECT struct_lib.c)
+
+add_library(error_c OBJECT error_lib.c)

src/c/error_lib.c

@@ -0,0 +1,7 @@
+#include <stdlib.h>
+
+void err(int);
+
+void err(int code){
+  exit(code);
+}

src/c/meson.build

@@ -1,3 +1,5 @@
 math_c = library('math_c', 'math_lib.c')
 
 struct_c = library('struct_c', 'struct_lib.c')
+
+error_c = library('error_c', 'error_lib.c')

src/cxx/CMakeLists.txt

@@ -2,3 +2,5 @@ add_library(math_cxx OBJECT math_lib.cxx)
 
 add_library(struct_cxx OBJECT struct_lib.cxx)
 target_include_directories(struct_cxx PRIVATE ${CMAKE_CURRENT_SOURCE_DIR}/../c)
+
+add_library(error_cxx OBJECT error_lib.cxx)

src/cxx/error_lib.cxx

@@ -0,0 +1,7 @@
+#include <cstdlib>
+
+extern "C" void err(int);
+
+void err(int code){
+  exit(code);
+}

src/cxx/meson.build

@@ -1,3 +1,6 @@
 math_cxx = library('math_cxx', 'math_lib.cxx')
 
-struct_cxx = library('struct_cxx', 'struct_lib.cxx')
+struct_cxx = library('struct_cxx', 'struct_lib.cxx',
+include_directories: meson.current_source_dir() / '../c')
+
+error_cxx = library('error_cxx', 'error_lib.cxx')

src/fortran/error_main.f90

@@ -0,0 +1,16 @@
+program error_c
+
+use, intrinsic :: iso_c_binding, only: C_INT
+
+implicit none (type, external)
+
+interface
+subroutine err(code) bind(C)
+import
+integer(C_INT), intent(in), value :: code
+end subroutine err
+end interface
+
+call err(42)
+
+end program

src/meson.build

@@ -5,13 +5,29 @@ subdir('cxx')
 subdir('fortran')
 
 # -- Fortran calling C++
-fortran_cxx_math = executable('fortran_call_cxx',
+fortran_cxx_math = executable('fortran_cxx_math',
   sources: files('fortran/math_main.f90'),
   link_with: math_cxx,
   link_language: 'fortran'
 )
 test('Fortran C++ math', fortran_cxx_math, timeout: 5)
 
+fortran_cxx_struct = executable('fortran_cxx_struct',
+  sources: files('fortran/struct_main.f90'),
+  include_directories: meson.current_source_dir() / 'c',
+  link_with: struct_cxx
+)
+test('Fortran C++ struct', fortran_cxx_struct,  timeout: 5)
+
+fortran_cxx_err = executable('fortran_cxx_err',
+  sources: files('fortran/error_main.f90'),
+  link_with: error_cxx,
+  link_language: 'fortran'
+)
+test('Fortran C++ error', fortran_cxx_err,
+timeout: 5,
+should_fail: true)
+
 # -- Fortran calling C
 fortran_c_math = executable('fortran_c_math',
   sources: files('fortran/math_main.f90'),
@@ -20,13 +36,22 @@ fortran_c_math = executable('fortran_c_math',
 )
 test('Fortran C math', fortran_c_math,  timeout: 5)
 
-fortran_c_struct = executable('fortran_call_c',
+fortran_c_struct = executable('fortran_c_struct',
   sources: files('fortran/struct_main.f90'),
   link_with: struct_c,
   link_language: 'fortran'
 )
 test('Fortran C struct', fortran_c_struct,  timeout: 5)
 
+fortran_c_err = executable('fortran_c_err',
+  sources: files('fortran/error_main.f90'),
+  link_with: error_c,
+  link_language: 'fortran'
+)
+test('Fortran C error', fortran_c_err,
+timeout: 5,
+should_fail: true)
+
 # -- C calling Fortran
 c_fortran_error = executable('c_fortran_error',
   sources: files('c/error_main.c'),
@@ -64,6 +89,7 @@ test('C++ Fortran error', cxx_fortran_error,
 
 cxx_fortran_struct = executable('cxx_fortran_struct',
   sources: files('cxx/struct_main.cxx'),
+  include_directories: meson.current_source_dir() / 'c',
   link_with: struct_fortran,
   link_language: 'fortran'
 )