Use allocatable field

minhqdao · Mar 10, 2024 · 0dde0ce · 0dde0ce
1 parent ac06db2
commit 0dde0ce
Showing 1 changed file with 3 additions and 9 deletions.
diff --git a/src/version_f.f90 b/src/version_f.f90
@@ -5,9 +5,7 @@ module version_f
   public :: try_satisfy
 
   type :: version_t
-    integer :: major
-    integer :: minor
-    integer :: patch
+    character(:), allocatable :: string
   end type
 
   type :: comparator_t
@@ -59,15 +57,11 @@ subroutine parse_comp_set(this)
     allocate (this%comps(0))
 
     comp%op = '>'
-    comp%version%major = 1
-    comp%version%minor = 0
-    comp%version%patch = 1
+    comp%version%string = '1'
     this%comps = [this%comps, comp]
 
     comp%op = '<'
-    comp%version%major = 2
-    comp%version%minor = 1
-    comp%version%patch = 0
+    comp%version%string = '2'
     this%comps = [this%comps, comp]
   end
 end