push_char Subroutine

private subroutine push_char(c)

Arguments

Type	Intent	Optional	Attributes		Name
character,	intent(inout)			::	c

Contents

Source Code

push_char

Source Code

  subroutine push_char(c)
    character, intent(inout) :: c
    pushed_index = pushed_index + 1
    pushed_char(pushed_index:pushed_index) = c

  end subroutine push_char