[Rd] return(1, ) results in subsequent segfault (PR#2880)

[ligges at statistik.uni-dortmund.de]

Inappropriate (?) usage of return() [e.g.: return(1, )] results in 
subsequent segfaults on Linux as well as on Windows (details see below), 
which is reproducible with the following example:

  foo <- function() return(1, )
  x <- foo()
  cbind(as.vector(1), as.vector(1))


You can also crash R on Solaris with e.g.:

  foo <- function() return(1, )
  x <- foo()
  set.seed(1)
  arima(rnorm(10), c(1,0,0))


Uwe Ligges

--please do not edit the information below--

Version:
  platform = i386-pc-mingw32
  arch = i386
  os = mingw32
  system = i386, mingw32
  status =
  major = 1
  minor = 7.0
  year = 2003
  month = 04
  day = 16
  language = R

Windows NT 4.0 (build 1381) Service Pack 6

Search Path:
  .GlobalEnv, package:methods, package:ctest, package:mva, 
package:modreg, package:nls, package:ts, Autoloads, package:base