diff options
| author | Bill Hoffman <bill.hoffman@kitware.com> | 2008-10-29 23:49:18 (GMT) |
|---|---|---|
| committer | Bill Hoffman <bill.hoffman@kitware.com> | 2008-10-29 23:49:18 (GMT) |
| commit | c0e7bcd4aeec9255bf752e33b0060c5d1f8bf1a4 (patch) | |
| tree | 941308cbae5c92c6e4465706de75c387e3de5395 /Modules | |
| parent | 574530c07db1a2d62e0b9ed4dca38b60dcd0e09e (diff) | |
| download | CMake-c0e7bcd4aeec9255bf752e33b0060c5d1f8bf1a4.zip CMake-c0e7bcd4aeec9255bf752e33b0060c5d1f8bf1a4.tar.gz CMake-c0e7bcd4aeec9255bf752e33b0060c5d1f8bf1a4.tar.bz2 | |
ENH: fix check for intel windows module mangling
Diffstat (limited to 'Modules')
| -rw-r--r-- | Modules/FortranCInterface.cmake | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Modules/FortranCInterface.cmake b/Modules/FortranCInterface.cmake index e87bc09..0fd9138 100644 --- a/Modules/FortranCInterface.cmake +++ b/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) |