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