error handling issue: err=0 even when RopenOutput("PDF",..,..) fails

*** What steps will reproduce the problem?

Invoke err=RopenOutput("PDF",dir=path,filename=fName) with a reasonably long 
file name

*** What is the expected output?

Success in creating pdf (err=0) or failure (err/=0)

*** What do you see instead?

Whether or not creation succeeds, err=0.

For long file names, the R console says: "Error in pdf(file = 
"C:/DMITRI/My_Documents/FortranLibs/BATEAU_BOM/BATEAU_BOM/DebugginRuns/bug03_val
idationDiffLatNum/OutputFiles/[bug03] Run L1_X1_M1_P1_I20_O20_S1_R1_G1 - Manual 
decimation (Val) - Fitting SIMHYD to Gingera using a precise rainfall 
prior[infern][postDiagnoz].pdf",  : 
  filename too long in pdf
"

fair enuf its a long name, but failure in this routine should cause err/=0 so 
that it can be properly caught/handled/reported in the Fortran unit.

At the moment this means Fortran keeps running even if the report file is not 
being generated.

*** What version of RFortran are you using?

2.1.2

*** On which Windows operating system?

WinXP

*** What Fortran compiler (name and version number) are you using?

Intel Fortran 11

*** What version of R are you using?

2.8.0

*** If you have a coding solution to this defect please include the file
(or preferably a svn patch) as an attachment

*** Please provide any additional information below.

Original issue reported on code.google.com by dmitri.k...@gmail.com on 27 Oct 2010 at 5:32

hodgesse1 / rfortran

error handling issue: err=0 even when RopenOutput("PDF",..,..) fails #83