Testing: Increase coverage: F90 misc functions

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

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

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