Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
#include <fortran.h>
#include <liberrno.h>
#include <stdlib.h>
#include <stddef.h>
#include <string.h>
#include <cray/dopevec.h>
Go to the source code of this file.
Functions | |
void | _REPEAT (DopeVectorType *result, _fcd source, _f_int *ncopies) |
void _REPEAT | ( | DopeVectorType * | result, |
_fcd | source, | ||
_f_int * | ncopies | ||
) |
Definition at line 49 of file repeat.c.
References _cptofcd(), _fcdlen(), _fcdtocp(), _LELVL_ABORT, _lerror(), DopeVector::a, DopeVector::assoc, DopeVector::base_addr, DopeVector::charptr, FEINTUNK, FENOMEMY, FERPTNEG, NULL, DopeVector::orig_base, and DopeVector::orig_size.