From 541b5a239bc0c06522b02513beda5c3cd80dbea1 Mon Sep 17 00:00:00 2001 From: milancurcic Date: Tue, 17 Jan 2023 13:28:11 -0500 Subject: [PATCH] Small workaround to make Intel compiler happy --- src/nf/nf_network_submodule.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/nf/nf_network_submodule.f90 b/src/nf/nf_network_submodule.f90 index df4e04cc..0071e4ef 100644 --- a/src/nf/nf_network_submodule.f90 +++ b/src/nf/nf_network_submodule.f90 @@ -369,11 +369,11 @@ module subroutine print_info(self) end subroutine print_info - pure module function get_num_params(self) result(num_params) + pure module function get_num_params(self) class(network), intent(in) :: self - integer :: num_params + integer :: get_num_params - num_params = sum(self % layers % get_num_params()) + get_num_params = sum(self % layers % get_num_params()) end function get_num_params