Browse Source

ENH: fix check for intel windows module mangling

Bill Hoffman 17 years ago
parent
commit
c0e7bcd4ae
1 changed files with 5 additions and 1 deletions
  1. 5 1
      Modules/FortranCInterface.cmake

+ 5 - 1
Modules/FortranCInterface.cmake

@@ -93,7 +93,11 @@ function(discover_fortran_module_mangling prefix suffix found)
     test_fortran_mangling("${CODE}" "${interface}"
       ${FORTRAN_C_MANGLING_UPPERCASE} "" "module" "sub" worked)
     if(worked)
-      string(TOLOWER "${interface}" interface)
+      # if this is the upper case module match then
+      # lower case it for the extraction of pre and post strings
+      if("${interface}" MATCHES "TEST_INTERFACE")
+        string(TOLOWER "${interface}" interface)
+      endif()
       string(REGEX REPLACE "(.*)test_interface(.*)" "\\1" pre "${interface}")
       string(REGEX REPLACE "(.*)test_interface(.*)" "\\2" post "${interface}")
       set(${prefix} "${pre}" PARENT_SCOPE)