Simon Zimny  committed fe22229

BUGFIX in aot path module, one can now set key and pos to path_AddNode (pos is favored)

  • Participants
  • Parent commits c854300

Comments (0)

Files changed (1)

File source/aot_path_module.f90

   !! It contains a linked list of all nodes, as well as the name of the Lua
   !! script where this path is recorded in.
   type aot_path_type
-    private
+!    private
     !> Name of the file where this path object is found in.
     character(len=256) :: LuaFilename
       me%head => me%head%child
     end if
+    ! check for key and position
     if (present(pos)) then
       me%head%ID_kind = 'position'
       me%head%pos = pos
-    end if
-    ! Specified keys overwrite positions
-    if (present(key)) then
+    else if(present(key)) then
       me%head%ID_kind = 'key'
       me%head%key = key
     end if