diff options
| author | Bill Hoffman <bill.hoffman@kitware.com> | 2008-10-29 21:37:01 (GMT) |
|---|---|---|
| committer | Bill Hoffman <bill.hoffman@kitware.com> | 2008-10-29 21:37:01 (GMT) |
| commit | 5995ff36df94bcca9d803bf0106708c73c365247 (patch) | |
| tree | b86a216ec0d1613c5a06d4655917665dc20f0044 /Modules/FortranCInterface.cmake | |
| parent | b0536e29eaf2edbf798cd98884eb3a31ebf4f781 (diff) | |
| download | CMake-5995ff36df94bcca9d803bf0106708c73c365247.zip CMake-5995ff36df94bcca9d803bf0106708c73c365247.tar.gz CMake-5995ff36df94bcca9d803bf0106708c73c365247.tar.bz2 | |
ENH: fix upper case
Diffstat (limited to 'Modules/FortranCInterface.cmake')
| -rw-r--r-- | Modules/FortranCInterface.cmake | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Modules/FortranCInterface.cmake b/Modules/FortranCInterface.cmake index a25e299..c83a830 100644 --- a/Modules/FortranCInterface.cmake +++ b/Modules/FortranCInterface.cmake @@ -187,10 +187,10 @@ function(create_fortran_c_interface NAMESPACE FUNCTIONS HEADER) endif(found) endif(NOT FORTRAN_C_MANGLING_FOUND) foreach(f ${${FUNCTIONS}}) - if(${FORTRAN_C_MANGLING_UPPERCASE}) - string(TOUPPER "${f}" ff) + if(FORTRAN_C_MANGLING_UPPERCASE) + string(TOUPPER "${f}" f) else() - string(TOLOWER "${f}" ff) + string(TOLOWER "${f}" f) endif() if("${f}" MATCHES ":") string(REGEX REPLACE "(.*):(.*)" "\\1" module "${f}") @@ -199,7 +199,7 @@ function(create_fortran_c_interface NAMESPACE FUNCTIONS HEADER) #define ${NAMESPACE}${module}_${function} ${FORTRAN_C_MODULE_PREFIX}${module}${FORTRAN_C_MODULE_SUFFIX}${function} ") else("${f}" MATCHES ":") - set(function "${FORTRAN_C_PREFIX}${ff}${FORTRAN_C_SUFFIX}") + set(function "${FORTRAN_C_PREFIX}${f}${FORTRAN_C_SUFFIX}") if("${f}" MATCHES "_" AND FORTRAN_C_MANGLING_EXTRA_UNDERSCORE) set(function "${function}_") endif("${f}" MATCHES "_" AND FORTRAN_C_MANGLING_EXTRA_UNDERSCORE) |