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

Testing: F90 Increase coverage

This commit is contained in:
Shahram Najm 2023-08-23 19:19:11 +01:00
parent a5191bbd85
commit c704400fdc
4 changed files with 37 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/F90/CMakeLists.txt
View File

@ -10,6 +10,7 @@ if( HAVE_BUILD_TOOLS )
list( APPEND tests_sanity list( APPEND tests_sanity
codes_ecc-1392 codes_ecc-1392
codes_datetime_julian codes_datetime_julian
codes_set_paths
grib_set_pv grib_set_pv
grib_set_data grib_set_data
bufr_ecc-1284 bufr_ecc-1284
@ -65,6 +66,7 @@ else()
list( APPEND tests_sanity list( APPEND tests_sanity
grib_set_pv grib_set_pv
grib_set_data grib_set_data
codes_set_paths
get_native_type get_native_type
grib_ecc-671 ) grib_ecc-671 )
list( APPEND tests_extra list( APPEND tests_extra

2
examples/F90/codes_dump.f90
View File

@ -7,7 +7,7 @@
! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction. ! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
! !
! !
program grib_dump_test program codes_dump_test
use eccodes use eccodes
implicit none implicit none
integer :: ifile, iret, msgid integer :: ifile, iret, msgid

21
examples/F90/codes_set_paths.f90 Normal file
View File

@ -0,0 +1,21 @@
! (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_set_paths
use eccodes
implicit none
character(len=512) :: samples_path, defs_path
samples_path = "/tmp/samples"
defs_path = "/tmp/defs"
call codes_set_samples_path(samples_path)
call codes_set_definitions_path(defs_path)
end program

13
examples/F90/codes_set_paths.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_set_paths