Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(r4fp32Stack), | intent(inout) | :: | stack |
subroutine Finalize_r4fp32Stack(stack)
type(r4fp32Stack),intent(inout) :: stack
if(allocated(stack%tokens)) deallocate(stack%tokens)
endsubroutine Finalize_r4fp32Stack