From 62c3045a7fb7e27a747d06ca4ed30ed223720730 Mon Sep 17 00:00:00 2001 From: Michele Guerini Rocco Date: Tue, 12 Sep 2023 15:12:48 +0200 Subject: [PATCH] src/ini_parser.f90: avoid procedure pointer In this case a normal procedure dummy argument works as well. --- src/gray_params.f90 | 6 +----- src/ini_parser.f90 | 6 +++--- 2 files changed, 4 insertions(+), 8 deletions(-) diff --git a/src/gray_params.f90 b/src/gray_params.f90 index 8c15d4f..5ea416b 100644 --- a/src/gray_params.f90 +++ b/src/gray_params.f90 @@ -284,11 +284,7 @@ contains type(gray_parameters), intent(out) :: params integer(kind(ini_error)), intent(out) :: err - ! local variables - procedure(property_handler), pointer :: p - - p => ini_handler - call parse_ini(filename, p, err) + call parse_ini(filename, ini_handler, err) contains diff --git a/src/ini_parser.f90 b/src/ini_parser.f90 index ddc93ec..0e15a70 100644 --- a/src/ini_parser.f90 +++ b/src/ini_parser.f90 @@ -63,9 +63,9 @@ contains implicit none ! function argument - character(*), intent(in) :: filepath - procedure(property_handler), pointer, intent(in) :: handler - integer(kind(ini_error)), intent(out) :: error + character(*), intent(in) :: filepath + procedure(property_handler) :: handler + integer(kind(ini_error)), intent(out) :: error ! local variables integer :: ini, sep, n