diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-03-30 10:52:12 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-03-30 10:52:12 -0400 |
| commit | fbfd194941de48affaa92522ceaff97010abc1c2 (patch) | |
| tree | 9be8f652bfaaeb6bc2e11134275098dec23ce92e /captain/template.f90 | |
| parent | fde763f60465b28d33260479b64d9555abc5bcbb (diff) | |
| download | levitating-fbfd194941de48affaa92522ceaff97010abc1c2.tar.gz levitating-fbfd194941de48affaa92522ceaff97010abc1c2.zip | |
Fixed outstanding issues in template variable assignment and player content building. Removed unnecessary logging calls.
Diffstat (limited to 'captain/template.f90')
| -rw-r--r-- | captain/template.f90 | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/captain/template.f90 b/captain/template.f90 index f8a6625..997bef3 100644 --- a/captain/template.f90 +++ b/captain/template.f90 @@ -105,10 +105,6 @@ contains class(variable)::self character(*), intent(in)::v - if(associated(self%vstr)) then - deallocate(self%vstr) - end if - allocate(character(len=max(len_trim(v), 1)) :: self%vstr) if(len_trim(v) == 0) then self%vstr = " " @@ -137,7 +133,6 @@ contains end subroutine variable_assign_integer subroutine variable_assign_string(self, name, str) - use logging implicit none class(variable)::self @@ -146,7 +141,7 @@ contains call self%set_name(name) self%vtype = VTYPE_STRING call self%set_string_value(str) - + end subroutine variable_assign_string subroutine variable_assign_logical(self, name, lg) @@ -259,7 +254,7 @@ contains class(template)::self character(*), intent(in)::name, value integer::i - + i = template_available_variable_index(self) call self%variables(i)%assign(name, value) |