You can obtain traceback information in your application by calling the TRACEBACKQQ routine.
TRACEBACKQQ allows an application to initiate a stack trace. You can use this routine to report application detected errors, use it for debugging, and so on. It uses the standard stack trace support in the Intel Fortran run-time system to produce the same output that the run-time system produces for unhandled errors and exceptions (severe error message). The TRACEBACKQQ subroutine generates a stack trace showing the program call stack as it was leading up to the point of the call to TRACEBACKQQ.
The error message string normally included from the run-time support is replaced with the user-supplied message text or omitted if no user string is specified. Traceback output is directed to the target destination appropriate for the application type, just as it is when traceback is initiated internally by the run-time support.
In the most simple case, a user can generate a stack trace by coding the call to TRACEBACKQQ with no arguments:
CALL
TRACEBACKQQ()
This call causes the run-time library to generate a traceback report with no leading header message, from wherever the call site is, and terminate execution.
You can specify arguments that generate a stack trace with the user-supplied string as the header and instead of terminating execution, return control to the caller to continue execution of the application. For example:
CALL
TRACEBACKQQ(STRING="Done with pass 1",USER_EXIT_CODE=-1)
By specifying a user exit code of -1, control returns to the calling program. Specifying a user exit code with a positive value requests that specified value be returned to the operating system. The default value is 0, which causes the application to abort execution.