}
#endif
isSTDErr = TRUE;
+ break;
case 6:
isSTD = TRUE;
break;
isSTD = FALSE;
types::File* pFile = FileManager::getFile(iFile);
// file opened with fortran open function
- if (pFile->getFileType() == 1)
+ if (!pFile || pFile->getFileType() == 1)
{
Scierror(999, _("%s: Wrong file descriptor: %d.\n"), "mfprintf", iFile);
return types::Function::Error;