diff options
| author | Bill Hoffman <bill.hoffman@kitware.com> | 2008-10-29 19:49:18 -0400 |
|---|---|---|
| committer | Bill Hoffman <bill.hoffman@kitware.com> | 2008-10-29 19:49:18 -0400 |
| commit | c0e7bcd4aeec9255bf752e33b0060c5d1f8bf1a4 (patch) | |
| tree | 941308cbae5c92c6e4465706de75c387e3de5395 /Modules/FortranCInterface.cmake | |
| parent | 574530c07db1a2d62e0b9ed4dca38b60dcd0e09e (diff) | |
| download | cmake-c0e7bcd4aeec9255bf752e33b0060c5d1f8bf1a4.tar.gz | |
ENH: fix check for intel windows module mangling
Diffstat (limited to 'Modules/FortranCInterface.cmake')
| -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 e87bc09b15..0fd9138c4b 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) |