Fortran: Allow to create MatchingPartitioner with derived FunctionSpaces

ecmwf · Jan 24, 2025 · 657afe9 · 657afe9
1 parent 5648a4a
commit 657afe9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/atlas_f/grid/atlas_Partitioner_module.F90 b/src/atlas_f/grid/atlas_Partitioner_module.F90
@@ -119,7 +119,7 @@ function atlas_MatchingFunctionSpacePartitioner__ctor( functionspace, config ) r
   use atlas_config_module, only : atlas_Config
   use atlas_partitioner_c_binding
   type(atlas_Partitioner) :: this
-  type(atlas_FunctionSpace)  , intent(in) :: functionspace
+  class(atlas_FunctionSpace)  , intent(in) :: functionspace
   type(atlas_Config), intent(in), optional :: config
   type(atlas_Config) :: opt_config
   if( present(config) ) then