Guard against deallocation of unallocated tokens

FluidNumerics · Jun 15, 2024 · cf6977c · cf6977c
1 parent b2a98a8
commit cf6977c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/FEQParse_TokenStack.F90 b/src/FEQParse_TokenStack.F90
@@ -50,7 +50,7 @@ subroutine Construct_TokenStack(stack,N)
   subroutine Finalize_TokenStack(stack)
     class(TokenStack),intent(inout) :: stack
 
-    deallocate(stack%tokens)
+    if(allocated(stack%tokens)) deallocate(stack%tokens)
 
   endsubroutine Finalize_TokenStack