Fix setting/detecting Fortran name-mangling
- PSBLAS is setting LowerUnderscore on windows without thispull/12/head
parent
9cac875a89
commit
9d0edabb77
@ -0,0 +1,7 @@
|
||||
function(CapitalizeString string output_variable)
|
||||
string(TOUPPER "${string}" _upper_string)
|
||||
string(TOLOWER "${string}" _lower_string)
|
||||
string(SUBSTRING "${_upper_string}" 0 1 _start)
|
||||
string(SUBSTRING "${_lower_string}" 1 -1 _end)
|
||||
set(${output_variable} "${_start}${_end}" PARENT_SCOPE)
|
||||
endfunction()
|
||||
Loading…
Reference in New Issue