ENH: fix check for intel windows module mangling

This commit is contained in:
Bill Hoffman 2008-10-29 19:49:18 -04:00
parent 574530c07d
commit c0e7bcd4ae
1 changed files with 5 additions and 1 deletions

View File

@ -93,7 +93,11 @@ function(discover_fortran_module_mangling prefix suffix found)
test_fortran_mangling("${CODE}" "${interface}" test_fortran_mangling("${CODE}" "${interface}"
${FORTRAN_C_MANGLING_UPPERCASE} "" "module" "sub" worked) ${FORTRAN_C_MANGLING_UPPERCASE} "" "module" "sub" worked)
if(worked) if(worked)
# 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) string(TOLOWER "${interface}" interface)
endif()
string(REGEX REPLACE "(.*)test_interface(.*)" "\\1" pre "${interface}") string(REGEX REPLACE "(.*)test_interface(.*)" "\\1" pre "${interface}")
string(REGEX REPLACE "(.*)test_interface(.*)" "\\2" post "${interface}") string(REGEX REPLACE "(.*)test_interface(.*)" "\\2" post "${interface}")
set(${prefix} "${pre}" PARENT_SCOPE) set(${prefix} "${pre}" PARENT_SCOPE)