ifx interface bug

Author: perazz

src/fpm/manifest/preprocess.f90

@@ -20,7 +20,7 @@ module fpm_manifest_preprocess
    implicit none
    private
 
-   public :: preprocess_config_t, new_preprocess_config, new_preprocessors, operator(==)
+   public :: preprocess_config_t, new_preprocessors, operator(==)
 
    !> Configuration meta data for a preprocessor
    type, extends(serializable_t) :: preprocess_config_t
@@ -173,7 +173,7 @@ subroutine new_preprocessors(preprocessors, table, error)
             call syntax_error(error, "Preprocessor "//list(iprep)%key//" must be a table entry")
             exit
          end if
-         call new_preprocess_config(preprocessors(iprep), node, error)
+         call preprocessors(iprep)%new(node, error)
          if (allocated(error)) exit
       end do
 

test/fpm_test/test_manifest.f90

@@ -1371,7 +1371,7 @@ subroutine test_preprocess_empty(error)
         call new_table(table)
         table%key = "example"
 
-        call new_preprocess_config(preprocess, table, error)
+        call preprocess%new(table, error)
 
     end subroutine test_preprocess_empty
 
@@ -1391,7 +1391,7 @@ subroutine test_preprocess_wrongkey(error)
         table%key = 'example'
         call add_table(table, 'wrong-field', child, stat)
 
-        call new_preprocess_config(preprocess, table, error)
+        call preprocess%new(table, error)
 
     end subroutine test_preprocess_wrongkey