core
/
eccodes
mirror of https://github.com/ecmwf/eccodes.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Testing: Increase coverage: F90 misc functions

This commit is contained in:
Shahram Najm 2023-12-18 14:01:48 +00:00
parent 57847622e1
commit bb621a8836
3 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/F90/CMakeLists.txt
View File

@ -11,6 +11,7 @@ if( HAVE_BUILD_TOOLS )
codes_ecc-1392 codes_ecc-1392
codes_datetime_julian codes_datetime_julian
codes_set_paths codes_set_paths
codes_f90_misc
grib_set_pv grib_set_pv
grib_set_data grib_set_data
bufr_ecc-1284 bufr_ecc-1284
@ -67,6 +68,7 @@ else()
grib_set_pv grib_set_pv
grib_set_data grib_set_data
codes_set_paths codes_set_paths
codes_f90_misc
get_native_type get_native_type
grib_ecc-671 ) grib_ecc-671 )
list( APPEND tests_extra list( APPEND tests_extra

25
examples/F90/codes_f90_misc.f90 Normal file
View File

@ -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

13
examples/F90/codes_f90_misc.sh Executable file
View File

@ -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