From 6db2058e2bbd3c9fc6cd845864cb647bbadb25d7 Mon Sep 17 00:00:00 2001 From: minhqdao Date: Sun, 10 Mar 2024 21:34:54 +0545 Subject: [PATCH] Not use generic --- src/version_f.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/version_f.f90 b/src/version_f.f90 index d0118b0..8d7df32 100644 --- a/src/version_f.f90 +++ b/src/version_f.f90 @@ -78,7 +78,6 @@ module version_f type :: version_range_t type(comparator_set_t), allocatable :: comp_sets(:) contains - generic :: parse => parse_version_range procedure, private :: parse_version_range end type @@ -399,7 +398,7 @@ subroutine try_satisfy(string) character(*), intent(in) :: string type(version_range_t) :: version_range - call version_range%parse(string) + call version_range%parse_version_range(string) if (version_range%comp_sets(1)%comps(1)%op /= '>') then print *, 'Operator not >: ', version_range%comp_sets(1)%comps(1)%op; stop 1