Open64 (mfef90, whirl2f, and IR tools)  TAG: version-openad; SVN changeset: 916
skipf.c File Reference
#include <errno.h>
#include <ffio.h>
#include <liberrno.h>
#include "fio.h"
Include dependency graph for skipf.c:

Go to the source code of this file.

Defines

#define ERET(x)

Functions

void SKIPF (_f_int *unump, _f_int8 *nb, _f_int *istat, _f_int *retstat)

Define Documentation

#define ERET (   x)
Value:
{ \
        if (narg > 3) {         \
                *retstat = x;   \
                 goto ret;      \
        } else			\
		_ferr(&cfs, x);       \
}

Definition at line 55 of file skipf.c.

Referenced by SKIPF().


Function Documentation

void SKIPF ( _f_int *  unump,
_f_int8 *  nb,
_f_int *  istat,
_f_int *  retstat 
)
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines