fix: rename derive type kind param

By renaming the kind parameter to extended types trainable_network_t and training_configuration_t, this commit fixes an issue identified by the Intel ifx compiler. The previous names for these public components conflicted with then names of the corresponding parent type's public component.
BerkeleyLab · Nov 27, 2024 · b5b05d1 · b5b05d1
1 parent 6787b6a
commit b5b05d1
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/src/fiats/trainable_network_m.f90 b/src/fiats/trainable_network_m.f90
@@ -14,8 +14,8 @@ module trainable_network_m
   private
   public :: trainable_network_t 
 
-  type, extends(neural_network_t) ::  trainable_network_t(k)
-    integer, kind :: k = default_real 
+  type, extends(neural_network_t) ::  trainable_network_t(m)
+    integer, kind :: m = default_real
     private
     type(workspace_t), private :: workspace_
   contains

diff --git a/src/fiats/training_configuration_m.f90 b/src/fiats/training_configuration_m.f90
@@ -14,9 +14,9 @@ module training_configuration_m
   private
   public :: training_configuration_t
 
-  type, extends(double_precision_file_t) :: training_configuration_t(k)
-    integer, kind :: k = default_real
-    type(hyperparameters_t(k)),    private :: hyperparameters_
+  type, extends(double_precision_file_t) :: training_configuration_t(m)
+    integer, kind :: m = default_real
+    type(hyperparameters_t(m)),    private :: hyperparameters_
     type(network_configuration_t), private :: network_configuration_
     type(tensor_names_t), private :: tensor_names_
   contains