From fa820b060d261fcef589e332e003312fb818a687 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Sun, 26 Apr 2015 10:03:53 +0000 Subject: [PATCH] Two small fixes for IBM XL Fortran compiler --- src/CMakeLists.txt | 3 ++- src/string.F90 | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/CMakeLists.txt b/src/CMakeLists.txt index 89a4a60e12..d3785aa6a3 100644 --- a/src/CMakeLists.txt +++ b/src/CMakeLists.txt @@ -116,7 +116,8 @@ elseif(CMAKE_Fortran_COMPILER_ID STREQUAL "PGI") elseif(CMAKE_Fortran_COMPILER_ID STREQUAL "XL") # IBM XL compiler options - set(f90flags "-WF,-DNO_F2008 -O2") + set(f90flags "-O2") + add_definitions(-DNO_F2008) if(debug) set(f90flags "-g -C -qflag=i:i -u") set(ldflags "-g") diff --git a/src/string.F90 b/src/string.F90 index 5071493f80..ebe2310f24 100644 --- a/src/string.F90 +++ b/src/string.F90 @@ -151,7 +151,7 @@ contains ! TO_LOWER converts a string to all lower case characters !=============================================================================== - elemental function to_lower(word) result(word_lower) + function to_lower(word) result(word_lower) character(*), intent(in) :: word character(len=len(word)) :: word_lower @@ -174,7 +174,7 @@ contains ! TO_UPPER converts a string to all upper case characters !=============================================================================== - elemental function to_upper(word) result(word_upper) + function to_upper(word) result(word_upper) character(*), intent(in) :: word character(len=len(word)) :: word_upper