testData/parser/r/ErrorWhile.r

func1 <- function() {
    while
}

func2 <- function() {
    while(
}

func3 <- function() {
    while()
}

func4 <- function() {
    while(1)
}