istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

src/ini_parser.f90: avoid procedure pointer

Browse Source 
In this case a normal procedure dummy argument works as well.
This commit is contained in:
Michele Guerini Rocco 2023-09-12 15:12:48 +02:00
parent 69367ae981
commit 62c3045a7f
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
2 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/gray_params.f90
View File

@ -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

6
src/ini_parser.f90
View File

@ -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