diff options
| -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) |