Testing NetCDF

Author: krystophny

ci/meta_tests.sh

@@ -33,17 +33,22 @@ pushd metapackage_minpack
 popd
 
 pushd metapackage_mpi
-"$fpm" build --verbose 
+"$fpm" build --verbose
 "$fpm" run --verbose
 popd
 
 pushd metapackage_mpi_c
-"$fpm" build --verbose 
+"$fpm" build --verbose
 "$fpm" run --verbose
 popd
 
 pushd metapackage_hdf5
-"$fpm" build --verbose 
+"$fpm" build --verbose
+"$fpm" run --verbose
+popd
+
+pushd metapackage_netcdf
+"$fpm" build --verbose
 "$fpm" run --verbose
 popd
 

example_packages/metapackage_netcdf/app/main.f90

@@ -0,0 +1,14 @@
+program metapackage_netcdf
+    use netcdf4_f03
+    implicit none
+
+    integer(c_int) :: ncid, retval
+    integer(c_int) :: ncsize = 16
+    character(c_char), allocatable, target :: memfile(:)
+
+    allocate (memfile(ncsize))
+
+    retval = nf_create("dummy.nc", NF_INMEMORY, ncid)
+    if (retval .ne. nf_noerr) error stop
+    stop 0
+end program metapackage_netcdf

example_packages/metapackage_netcdf/fpm.toml

@@ -0,0 +1,2 @@
+name = "metapackage_netcdf"
+dependencies.netcdf="*"

src/metapackage/fpm_meta_netcdf.f90

@@ -12,48 +12,56 @@ module fpm_meta_netcdf
 
     public :: init_netcdf
 
-    contains
+contains
 
     !> Initialize NetCDF metapackage for the current system
-    subroutine init_netcdf(this,compiler,error)
+    subroutine init_netcdf(this, compiler, error)
         class(metapackage_t), intent(inout) :: this
         type(compiler_t), intent(in) :: compiler
         type(error_t), allocatable, intent(out) :: error
 
         logical :: s
         character(len=:), allocatable :: include_flag, libdir
 
-        include_flag = get_include_flag(compiler,"")
+        include_flag = get_include_flag(compiler, "")
 
         !> Cleanup
         call destroy(this)
-        allocate(this%link_libs(0),this%incl_dirs(0),this%external_modules(0))
-        this%link_flags = string_t("")
-        this%flags = string_t("")
+        allocate (this % link_libs(0), this % incl_dirs(0), this % external_modules(0))
+        this % link_flags = string_t("")
+        this % flags = string_t("")
 
         !> Assert pkg-config is installed
-        if (.not.assert_pkg_config()) then
+        if (.not. assert_pkg_config()) then
             call fatal_error(error, 'netcdf metapackage requires pkg-config')
             return
         end if
 
         if (.not. pkgcfg_has_package('netcdf')) then
-            call fatal_error(error,'pkg-config could not find a suitable netcdf package.')
+            call fatal_error(error, 'pkg-config could not find a suitable netcdf package.')
         end if
         call add_pkg_config_compile_options(this, 'netcdf', include_flag, libdir, error)
         if (allocated(error)) return
 
         if (.not. pkgcfg_has_package('netcdf-fortran')) then
             call fatal_error(error, &
-                'pkg-config could not find a suitable netcdf-fortran package.')
+                             'pkg-config could not find a suitable netcdf-fortran package.')
         end if
         call add_pkg_config_compile_options(this, 'netcdf-fortran', include_flag, libdir, error)
         if (allocated(error)) return
 
-
         !> Add NetCDF modules as external
-        this%has_external_modules = .true.
-        this%external_modules = [string_t('netcdf')]
+        this % has_external_modules = .true.
+        this % external_modules = [string_t('netcdf'), &
+                                   string_t('netcdf4_f03'), &
+                                   string_t('netcdf4_nc_interfaces'), &
+                                   string_t('netcdf4_nf_interfaces'), &
+                                   string_t('netcdf_f03'), &
+                                   string_t('netcdf_fortv2_c_interfaces'), &
+                                   string_t('netcdf_nc_data'), &
+                                   string_t('netcdf_nc_interfaces'), &
+                                   string_t('netcdf_nf_data'), &
+                                   string_t('netcdf_nf_interfaces')]
 
         print *, 'NetCDF metapackage initialized successfully.'