From bb621a8836cc235a84bbe2101de3c29ea6c630a9 Mon Sep 17 00:00:00 2001 From: Shahram Najm Date: Mon, 18 Dec 2023 14:01:48 +0000 Subject: [PATCH] Testing: Increase coverage: F90 misc functions --- examples/F90/CMakeLists.txt | 2 ++ examples/F90/codes_f90_misc.f90 | 25 +++++++++++++++++++++++++ examples/F90/codes_f90_misc.sh | 13 +++++++++++++ 3 files changed, 40 insertions(+) create mode 100644 examples/F90/codes_f90_misc.f90 create mode 100755 examples/F90/codes_f90_misc.sh diff --git a/examples/F90/CMakeLists.txt b/examples/F90/CMakeLists.txt index 4db9170d1..79f65e6fb 100644 --- a/examples/F90/CMakeLists.txt +++ b/examples/F90/CMakeLists.txt @@ -11,6 +11,7 @@ if( HAVE_BUILD_TOOLS ) codes_ecc-1392 codes_datetime_julian codes_set_paths + codes_f90_misc grib_set_pv grib_set_data bufr_ecc-1284 @@ -67,6 +68,7 @@ else() grib_set_pv grib_set_data codes_set_paths + codes_f90_misc get_native_type grib_ecc-671 ) list( APPEND tests_extra diff --git a/examples/F90/codes_f90_misc.f90 b/examples/F90/codes_f90_misc.f90 new file mode 100644 index 000000000..1e47651ab --- /dev/null +++ b/examples/F90/codes_f90_misc.f90 @@ -0,0 +1,25 @@ +! (C) Copyright 2005- ECMWF. +! +! This software is licensed under the terms of the Apache Licence Version 2.0 +! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. +! +! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by +! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction. +! +! +program codes_f90_misc + use eccodes + implicit none + + character(len=64) :: error_message = '' + + call codes_gribex_mode_on() + call codes_gribex_mode_off() + + call codes_bufr_multi_element_constant_arrays_on() + call codes_bufr_multi_element_constant_arrays_off() + + call codes_get_error_string(-26, error_message) + write (*, *) 'error message: ', trim(error_message) + +end program diff --git a/examples/F90/codes_f90_misc.sh b/examples/F90/codes_f90_misc.sh new file mode 100755 index 000000000..5edf282c7 --- /dev/null +++ b/examples/F90/codes_f90_misc.sh @@ -0,0 +1,13 @@ +#!/bin/sh +# (C) Copyright 2005- ECMWF. +# +# This software is licensed under the terms of the Apache Licence Version 2.0 +# which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. +# +# In applying this licence, ECMWF does not waive the privileges and immunities granted to it by +# virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction. + +. ./include.ctest.sh + +# export ECCODES_DEBUG=1 +${examples_dir}/eccodes_f_codes_f90_misc