add mangling headers

spcl · Oct 22, 2023 · b01eea4 · b01eea4
1 parent 001f7fc
commit b01eea4
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/build/fc_mangle.h b/build/fc_mangle.h
@@ -0,0 +1,16 @@
+#ifndef FortranCInterface_HEADER_INCLUDED
+#define FortranCInterface_HEADER_INCLUDED
+
+/* Mangling for Fortran global symbols without underscores. */
+#define FortranCInterface_GLOBAL(name,NAME) name##_
+
+/* Mangling for Fortran global symbols with underscores. */
+#define FortranCInterface_GLOBAL_(name,NAME) name##_
+
+/* Mangling for Fortran module symbols without underscores. */
+#define FortranCInterface_MODULE(mod_name,name, mod_NAME,NAME) __##mod_name##_MOD_##name
+
+/* Mangling for Fortran module symbols with underscores. */
+#define FortranCInterface_MODULE_(mod_name,name, mod_NAME,NAME) __##mod_name##_MOD_##name
+
+#endif