Intel® Fortran Libraries Reference

2 Intel Fortran Libraries Referencey = 30status = ELLIPSE ($GFILLINTERIOR, INT2(x-15), &INT2(y-15), INT2( x+15), INT2(y+15))imsize = IMAGESIZE (INT2(x-16), INT2(y-16), &INT2( x+16), INT2(y+16))ALLOCATE(buffer (imsize), STAT = error)IF (error .NE. 0) THENSTOP 'ERROR: Insufficient memory'END IFCALL GETIMAGE (INT2(x-16), INT2(y-16), &INT2( x+16), INT2(y+16), buffer)ENDGETLASTERRORPortability Function: Returns the last error set.Module: USE IFPORTSyntaxresult = GETLASTERROR ( )Results:The result type is INTEGER(4). The result is the integer corresponding to the last run-time errorvalue that was set.For example, if you use an ERR= specifier in an I/O statement, your program will not abort if anerror occurs. GETLASTERROR provides a way to determine what the error condition was, with abetter degree of certainty than just examining errno. Your application can then take appropriateaction based upon the error number.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS DLL LIBGETLASTERRORQQPortability Function: Returns the last error set by a run-time procedure.Module: USE IFPORTSyntaxresult = GETLASTERRORQQ ( )2-130