intrin.def

gcc-2.95.3 Linux下最常用的C编译器

/* intrin.def -- Public #include File (module.h template V1.0)
   The Free Software Foundation has released this file into the
   public domain.

   Owning Modules:
      intrin.c

   Modifications:
*/

/* Intrinsic names listed in alphabetical order, sorted by uppercase name.
   This list is keyed to the names of intrinsics as seen in source code.  */

DEFNAME	("ABORT",	"abort",	"Abort",	genNONE,	specABORT)	/* UNIX */
DEFNAME	("ABS",		"abs",		"Abs",		genNONE,	specABS)
DEFNAME	("ACCESS",	"access",	"Access",	genNONE,	specACCESS)	/* UNIX */
DEFNAME	("ACHAR",	"achar",	"AChar",	genNONE,	specACHAR)	/* F90,	F2C */
DEFNAME	("ACOS",	"acos",		"ACos",		genNONE,	specACOS)
DEFNAME	("ACOSD",	"acosd",	"ACosD",	genNONE,	specACOSD)	/* VXT */
DEFNAME	("ADJUSTL",	"adjustl",	"AdjustL",	genNONE,	specADJUSTL)	/* F90 */
DEFNAME	("ADJUSTR",	"adjustr",	"AdjustR",	genNONE,	specADJUSTR)	/* F90 */
DEFNAME	("AIMAG",	"aimag",	"AImag",	genNONE,	specAIMAG)
DEFNAME	("AIMAX0",	"aimax0",	"AIMax0",	genNONE,	specAIMAX0)	/* VXT */
DEFNAME	("AIMIN0",	"aimin0",	"AIMin0",	genNONE,	specAIMIN0)	/* VXT */
DEFNAME	("AINT",	"aint",		"AInt",		genNONE,	specAINT)
DEFNAME	("AJMAX0",	"ajmax0",	"AJMax0",	genNONE,	specAJMAX0)	/* VXT */
DEFNAME	("AJMIN0",	"ajmin0",	"AJMin0",	genNONE,	specAJMIN0)	/* VXT */
DEFNAME	("ALARM",	"alarm",	"Alarm",	genNONE,	specALARM)	/* UNIX */
DEFNAME	("ALL",		"all",		"All",		genNONE,	specALL)	/* F90 */
DEFNAME	("ALLOCATED",	"allocated",	"Allocated",	genNONE,	specALLOCATED)	/* F90 */
DEFNAME	("ALOG",	"alog",		"ALog",		genNONE,	specALOG)
DEFNAME	("ALOG10",	"alog10",	"ALog10",	genNONE,	specALOG10)
DEFNAME	("AMAX0",	"amax0",	"AMax0",	genNONE,	specAMAX0)
DEFNAME	("AMAX1",	"amax1",	"AMax1",	genNONE,	specAMAX1)
DEFNAME	("AMIN0",	"amin0",	"AMin0",	genNONE,	specAMIN0)
DEFNAME	("AMIN1",	"amin1",	"AMin1",	genNONE,	specAMIN1)
DEFNAME	("AMOD",	"amod",		"AMod",		genNONE,	specAMOD)
DEFNAME	("AND",		"and",		"And",		genNONE,	specAND)	/* F2C */
DEFNAME	("ANINT",	"anint",	"ANInt",	genNONE,	specANINT)
DEFNAME	("ANY",		"any",		"Any",		genNONE,	specANY)	/* F90 */
DEFNAME	("ASIN",	"asin",		"ASin",		genNONE,	specASIN)
DEFNAME	("ASIND",	"asind",	"ASinD",	genNONE,	specASIND)	/* VXT */
DEFNAME	("ASSOCIATED",	"associated",	"Associated",	genNONE,	specASSOCIATED)	/* F90 */
DEFNAME	("ATAN",	"atan",		"ATan",		genNONE,	specATAN)
DEFNAME	("ATAN2",	"atan2",	"ATan2",	genNONE,	specATAN2)
DEFNAME	("ATAN2D",	"atan2d",	"ATan2D",	genNONE,	specATAN2D)	/* VXT */
DEFNAME	("ATAND",	"atand",	"ATanD",	genNONE,	specATAND)	/* VXT */
DEFNAME	("BESJ0",	"besj0",	"BesJ0",	genNONE,	specBESJ0)	/* UNIX */
DEFNAME	("BESJ1",	"besj1",	"BesJ1",	genNONE,	specBESJ1)	/* UNIX */
DEFNAME	("BESJN",	"besjn",	"BesJN",	genNONE,	specBESJN)	/* UNIX */
DEFNAME	("BESY0",	"besy0",	"BesY0",	genNONE,	specBESY0)	/* UNIX */
DEFNAME	("BESY1",	"besy1",	"BesY1",	genNONE,	specBESY1)	/* UNIX */
DEFNAME	("BESYN",	"besyn",	"BesYN",	genNONE,	specBESYN)	/* UNIX */
DEFNAME	("BITEST",	"bitest",	"BITest",	genNONE,	specBITEST)	/* VXT */
DEFNAME	("BIT_SIZE",	"bit_size",	"Bit_Size",	genNONE,	specBIT_SIZE)	/* F90 */
DEFNAME	("BJTEST",	"bjtest",	"BJTest",	genNONE,	specBJTEST)	/* VXT */
DEFNAME	("BTEST",	"btest",	"BTest",	genNONE,	specBTEST)	/* F90,	VXT */
DEFNAME	("CABS",	"cabs",		"CAbs",		genNONE,	specCABS)
DEFNAME	("CCOS",	"ccos",		"CCos",		genNONE,	specCCOS)
DEFNAME	("CDABS",	"cdabs",	"CDAbs",	genNONE,	specCDABS)	/* VXT */
DEFNAME	("CDCOS",	"cdcos",	"CDCos",	genNONE,	specCDCOS)	/* VXT */
DEFNAME	("CDEXP",	"cdexp",	"CDExp",	genNONE,	specCDEXP)	/* VXT */
DEFNAME	("CDLOG",	"cdlog",	"CDLog",	genNONE,	specCDLOG)	/* VXT */
DEFNAME	("CDSIN",	"cdsin",	"CDSin",	genNONE,	specCDSIN)	/* VXT */
DEFNAME	("CDSQRT",	"cdsqrt",	"CDSqRt",	genNONE,	specCDSQRT)	/* VXT */
DEFNAME	("CEILING",	"ceiling",	"Ceiling",	genNONE,	specCEILING)	/* F90 */
DEFNAME	("CEXP",	"cexp",		"CExp",		genNONE,	specCEXP)
DEFNAME	("CHAR",	"char",		"Char",		genNONE,	specCHAR)
DEFNAME	("CHDIR",	"chdir",	"ChDir",	genCHDIR,	specNONE)	/* UNIX */
DEFNAME	("CHMOD",	"chmod",	"ChMod",	genCHMOD,	specNONE)	/* UNIX */
DEFNAME	("CLOG",	"clog",		"CLog",		genNONE,	specCLOG)
DEFNAME	("CMPLX",	"cmplx",	"Cmplx",	genNONE,	specCMPLX)
DEFNAME	("COMPLEX",	"complex",	"Complex",	genNONE,	specCOMPLEX)
DEFNAME	("CONJG",	"conjg",	"Conjg",	genNONE,	specCONJG)
DEFNAME	("COS",		"cos",		"Cos",		genNONE,	specCOS)
DEFNAME	("COSD",	"cosd",		"CosD",		genNONE,	specCOSD)	/* VXT */
DEFNAME	("COSH",	"cosh",		"CosH",		genNONE,	specCOSH)
DEFNAME	("COUNT",	"count",	"Count",	genNONE,	specCOUNT)	/* F90 */
DEFNAME	("CPU_TIME",	"cpu_time",	"CPU_Time",	genNONE,	specCPU_TIME)	/* F95 */
DEFNAME	("CSHIFT",	"cshift",	"CShift",	genNONE,	specCSHIFT)	/* F90 */
DEFNAME	("CSIN",	"csin",		"CSin",		genNONE,	specCSIN)
DEFNAME	("CSQRT",	"csqrt",	"CSqRt",	genNONE,	specCSQRT)
DEFNAME	("CTIME",	"ctime",	"CTime",	genCTIME,	specNONE)	/* UNIX */
DEFNAME	("DABS",	"dabs",		"DAbs",		genNONE,	specDABS)
DEFNAME	("DACOS",	"dacos",	"DACos",	genNONE,	specDACOS)
DEFNAME	("DACOSD",	"dacosd",	"DACosD",	genNONE,	specDACOSD)	/* VXT */
DEFNAME	("DASIN",	"dasin",	"DASin",	genNONE,	specDASIN)
DEFNAME	("DASIND",	"dasind",	"DASinD",	genNONE,	specDASIND)	/* VXT */
DEFNAME	("DATAN",	"datan",	"DATan",	genNONE,	specDATAN)
DEFNAME	("DATAN2",	"datan2",	"DATan2",	genNONE,	specDATAN2)
DEFNAME	("DATAN2D",	"datan2d",	"DATan2D",	genNONE,	specDATAN2D)	/* VXT */
DEFNAME	("DATAND",	"datand",	"DATanD",	genNONE,	specDATAND)	/* VXT */
DEFNAME	("DATE",	"date",		"Date",		genNONE,	specDATE)	/* VXT */
DEFNAME	("DATE_AND_TIME",	"date_and_time",	"Date_and_Time",	genNONE,	specDATE_AND_TIME)	/* F90 */
DEFNAME	("DBESJ0",	"dbesj0",	"DbesJ0",	genNONE,	specDBESJ0)	/* UNIX */
DEFNAME	("DBESJ1",	"dbesj1",	"DbesJ1",	genNONE,	specDBESJ1)	/* UNIX */
DEFNAME	("DBESJN",	"dbesjn",	"DbesJN",	genNONE,	specDBESJN)	/* UNIX */
DEFNAME	("DBESY0",	"dbesy0",	"DbesY0",	genNONE,	specDBESY0)	/* UNIX */
DEFNAME	("DBESY1",	"dbesy1",	"DbesY1",	genNONE,	specDBESY1)	/* UNIX */
DEFNAME	("DBESYN",	"dbesyn",	"DbesYN",	genNONE,	specDBESYN)	/* UNIX */
DEFNAME	("DBLE",	"dble",		"Dble",		genNONE,	specDBLE)
DEFNAME	("DBLEQ",	"dbleq",	"DbleQ",	genNONE,	specDBLEQ)	/* VXT */
DEFNAME	("DCMPLX",	"dcmplx",	"DCmplx",	genNONE,	specDCMPLX)	/* F2C,	VXT */
DEFNAME	("DCONJG",	"dconjg",	"DConjg",	genNONE,	specDCONJG)	/* F2C,	VXT */
DEFNAME	("DCOS",	"dcos",		"DCos",		genNONE,	specDCOS)
DEFNAME	("DCOSD",	"dcosd",	"DCosD",	genNONE,	specDCOSD)	/* VXT */
DEFNAME	("DCOSH",	"dcosh",	"DCosH",	genNONE,	specDCOSH)
DEFNAME	("DDIM",	"ddim",		"DDiM",		genNONE,	specDDIM)
DEFNAME	("DERF",	"derf",		"DErF",		genNONE,	specDERF)	/* UNIX */
DEFNAME	("DERFC",	"derfc",	"DErFC",	genNONE,	specDERFC)	/* UNIX */
DEFNAME	("DEXP",	"dexp",		"DExp",		genNONE,	specDEXP)
DEFNAME	("DFLOAT",	"dfloat",	"DFloat",	genNONE,	specDFLOAT)	/* F2C,	VXT */
DEFNAME	("DFLOTI",	"dfloti",	"DFlotI",	genNONE,	specDFLOTI)	/* VXT */
DEFNAME	("DFLOTJ",	"dflotj",	"DFlotJ",	genNONE,	specDFLOTJ)	/* VXT */
DEFNAME	("DIGITS",	"digits",	"Digits",	genNONE,	specDIGITS)	/* F90 */
DEFNAME	("DIM",		"dim",		"DiM",		genNONE,	specDIM)
DEFNAME	("DIMAG",	"dimag",	"DImag",	genNONE,	specDIMAG)	/* F2C, VXT */
DEFNAME	("DINT",	"dint",		"DInt",		genNONE,	specDINT)
DEFNAME	("DLOG",	"dlog",		"DLog",		genNONE,	specDLOG)
DEFNAME	("DLOG10",	"dlog10",	"DLog10",	genNONE,	specDLOG10)
DEFNAME	("DMAX1",	"dmax1",	"DMax1",	genNONE,	specDMAX1)
DEFNAME	("DMIN1",	"dmin1",	"DMin1",	genNONE,	specDMIN1)
DEFNAME	("DMOD",	"dmod",		"DMod",		genNONE,	specDMOD)
DEFNAME	("DNINT",	"dnint",	"DNInt",	genNONE,	specDNINT)
DEFNAME	("DOT_PRODUCT",	"dot_product",	"Dot_Product",	genNONE,	specDOT_PRODUCT)	/* F90 */
DEFNAME	("DPROD",	"dprod",	"DProd",	genNONE,	specDPROD)
DEFNAME	("DREAL",	"dreal",	"DReal",	genNONE,	specDREAL)	/* VXT */
DEFNAME	("DSIGN",	"dsign",	"DSign",	genNONE,	specDSIGN)
DEFNAME	("DSIN",	"dsin",		"DSin",		genNONE,	specDSIN)
DEFNAME	("DSIND",	"dsind",	"DSinD",	genNONE,	specDSIND)	/* VXT */
DEFNAME	("DSINH",	"dsinh",	"DSinH",	genNONE,	specDSINH)
DEFNAME	("DSQRT",	"dsqrt",	"DSqRt",	genNONE,	specDSQRT)
DEFNAME	("DTAN",	"dtan",		"DTan",		genNONE,	specDTAN)
DEFNAME	("DTAND",	"dtand",	"DTanD",	genNONE,	specDTAND)	/* VXT */
DEFNAME	("DTANH",	"dtanh",	"DTanH",	genNONE,	specDTANH)
DEFNAME	("DTIME",	"dtime",	"DTime",	genDTIME,	specNONE)	/* UNIX */
DEFNAME	("EOSHIFT",	"eoshift",	"EOShift",	genNONE,	specEOSHIFT)	/* F90 */
DEFNAME	("EPSILON",	"epsilon",	"Epsilon",	genNONE,	specEPSILON)	/* F90 */
DEFNAME	("ERF",		"erf",		"ErF",		genNONE,	specERF)	/* UNIX */
DEFNAME	("ERFC",	"erfc",		"ErFC",		genNONE,	specERFC)	/* UNIX */
DEFNAME	("ETIME",	"etime",	"ETime",	genETIME,	specNONE)	/* UNIX */
DEFNAME	("EXIT",	"exit",		"Exit",		genNONE,	specEXIT)	/* UNIX */
DEFNAME	("EXP",		"exp",		"Exp",		genNONE,	specEXP)
DEFNAME	("EXPONENT",	"exponent",	"Exponent",	genNONE,	specEXPONENT)	/* F90 */
DEFNAME	("FDATE",	"fdate",	"FDate",	genFDATE,	specNONE)	/* UNIX */
DEFNAME	("FGET",	"fget",		"FGet",		genFGET,	specNONE)	/* UNIX */
DEFNAME	("FGETC",	"fgetc",	"FGetC",	genFGETC,	specNONE)	/* UNIX */
DEFNAME	("FLOAT",	"float",	"Float",	genNONE,	specFLOAT)
DEFNAME	("FLOATI",	"floati",	"FloatI",	genNONE,	specFLOATI)	/* VXT */
DEFNAME	("FLOATJ",	"floatj",	"FloatJ",	genNONE,	specFLOATJ)	/* VXT */
DEFNAME	("FLOOR",	"floor",	"Floor",	genNONE,	specFLOOR)	/* F90 */
DEFNAME	("FLUSH",	"flush",	"Flush",	genNONE,	specFLUSH)	/* UNIX */
DEFNAME	("FNUM",	"fnum",		"FNum",		genNONE,	specFNUM)	/* UNIX */
DEFNAME	("FPABSP",	"fpabsp",	"FPAbsP",	genFPABSP,	specNONE)	/* F2C */
DEFNAME	("FPEXPN",	"fpexpn",	"FPExpn",	genFPEXPN,	specNONE)	/* F2C */
DEFNAME	("FPFRAC",	"fpfrac",	"FPFrac",	genFPFRAC,	specNONE)	/* F2C */
DEFNAME	("FPMAKE",	"fpmake",	"FPMake",	genFPMAKE,	specNONE)	/* F2C */
DEFNAME	("FPRRSP",	"fprrsp",	"FPRRSp",	genFPRRSP,	specNONE)	/* F2C */
DEFNAME	("FPSCAL",	"fpscal",	"FPScal",	genFPSCAL,	specNONE)	/* F2C */
DEFNAME	("FPUT",	"fput",		"FPut",		genFPUT,	specNONE)	/* UNIX */
DEFNAME	("FPUTC",	"fputc",	"FPutC",	genFPUTC,	specNONE)	/* UNIX */
DEFNAME	("FRACTION",	"fraction",	"Fraction",	genNONE,	specFRACTION)	/* F90 */
DEFNAME	("FSEEK",	"fseek",	"FSeek",	genNONE,	specFSEEK)	/* UNIX */
DEFNAME	("FSTAT",	"fstat",	"FStat",	genFSTAT,	specNONE)	/* UNIX */
DEFNAME	("FTELL",	"ftell",	"FTell",	genFTELL,	specNONE)	/* UNIX */
DEFNAME	("GERROR",	"gerror",	"GError",	genNONE,	specGERROR)	/* UNIX */
DEFNAME	("GETARG",	"getarg",	"GetArg",	genNONE,	specGETARG)	/* UNIX */
DEFNAME	("GETCWD",	"getcwd",	"GetCWD",	genGETCWD,	specNONE)	/* UNIX */
DEFNAME	("GETENV",	"getenv",	"GetEnv",	genNONE,	specGETENV)	/* UNIX */
DEFNAME	("GETGID",	"getgid",	"GetGId",	genNONE,	specGETGID)	/* UNIX */
DEFNAME	("GETLOG",	"getlog",	"GetLog",	genNONE,	specGETLOG)	/* UNIX */
DEFNAME	("GETPID",	"getpid",	"GetPId",	genNONE,	specGETPID)	/* UNIX */
DEFNAME	("GETUID",	"getuid",	"GetUId",	genNONE,	specGETUID)	/* UNIX */
DEFNAME	("GMTIME",	"gmtime",	"GMTime",	genNONE,	specGMTIME)	/* UNIX */
DEFNAME	("HOSTNM",	"hostnm",	"HostNm",	genHOSTNM,	specNONE)	/* UNIX */
DEFNAME	("HUGE",	"huge",		"Huge",		genNONE,	specHUGE)	/* F90 */
DEFNAME	("IABS",	"iabs",		"IAbs",		genNONE,	specIABS)
DEFNAME	("IACHAR",	"iachar",	"IAChar",	genNONE,	specIACHAR)	/* F90,	F2C */
DEFNAME	("IAND",	"iand",		"IAnd",		genNONE,	specIAND)	/* F90,	VXT */
DEFNAME	("IARGC",	"iargc",	"IArgC",	genNONE,	specIARGC)	/* UNIX */
DEFNAME	("IBCLR",	"ibclr",	"IBClr",	genNONE,	specIBCLR)	/* F90,	VXT */
DEFNAME	("IBITS",	"ibits",	"IBits",	genNONE,	specIBITS)	/* F90,	VXT */
DEFNAME	("IBSET",	"ibset",	"IBSet",	genNONE,	specIBSET)	/* F90,	VXT */
DEFNAME	("ICHAR",	"ichar",	"IChar",	genNONE,	specICHAR)
DEFNAME	("IDATE",	"idate",	"IDate",	genIDATE,	specNONE)	/* UNIX, VXT */
DEFNAME	("IDIM",	"idim",		"IDiM",		genNONE,	specIDIM)
DEFNAME	("IDINT",	"idint",	"IDInt",	genNONE,	specIDINT)
DEFNAME	("IDNINT",	"idnint",	"IDNInt",	genNONE,	specIDNINT)
DEFNAME	("IEOR",	"ieor",		"IEOr",		genNONE,	specIEOR)	/* F90,	VXT */
DEFNAME	("IERRNO",	"ierrno",	"IErrNo",	genNONE,	specIERRNO)	/* UNIX */
DEFNAME	("IFIX",	"ifix",		"IFix",		genNONE,	specIFIX)
DEFNAME	("IIABS",	"iiabs",	"IIAbs",	genNONE,	specIIABS)	/* VXT */
DEFNAME	("IIAND",	"iiand",	"IIAnd",	genNONE,	specIIAND)	/* VXT */
DEFNAME	("IIBCLR",	"iibclr",	"IIBClr",	genNONE,	specIIBCLR)	/* VXT */
DEFNAME	("IIBITS",	"iibits",	"IIBits",	genNONE,	specIIBITS)	/* VXT */
DEFNAME	("IIBSET",	"iibset",	"IIBSet",	genNONE,	specIIBSET)	/* VXT */
DEFNAME	("IIDIM",	"iidim",	"IIDiM",	genNONE,	specIIDIM)	/* VXT */
DEFNAME	("IIDINT",	"iidint",	"IIDInt",	genNONE,	specIIDINT)	/* VXT */
DEFNAME	("IIDNNT",	"iidnnt",	"IIDNnt",	genNONE,	specIIDNNT)	/* VXT */
DEFNAME	("IIEOR",	"iieor",	"IIEOr",	genNONE,	specIIEOR)	/* VXT */
DEFNAME	("IIFIX",	"iifix",	"IIFix",	genNONE,	specIIFIX)	/* VXT */
DEFNAME	("IINT",	"iint",		"IInt",		genNONE,	specIINT)	/* VXT */
DEFNAME	("IIOR",	"iior",		"IIOr",		genNONE,	specIIOR)	/* VXT */
DEFNAME	("IIQINT",	"iiqint",	"IIQint",	genNONE,	specIIQINT)	/* VXT */
DEFNAME	("IIQNNT",	"iiqnnt",	"IIQNnt",	genNONE,	specIIQNNT)	/* VXT */
DEFNAME	("IISHFT",	"iishft",	"IIShft",	genNONE,	specNONE)	/* VXT */
DEFNAME	("IISHFTC",	"iishftc",	"IIShftC",	genNONE,	specIISHFTC)	/* VXT */
DEFNAME	("IISIGN",	"iisign",	"IISign",	genNONE,	specIISIGN)	/* VXT */
DEFNAME	("IMAG",	"imag",		"Imag",		genNONE,	specIMAG)	/* F2C */
DEFNAME	("IMAGPART",	"imagpart",	"ImagPart",	genNONE,	specIMAGPART)	/* GNU */
DEFNAME	("IMAX0",	"imax0",	"IMax0",	genNONE,	specIMAX0)	/* VXT */
DEFNAME	("IMAX1",	"imax1",	"IMax1",	genNONE,	specIMAX1)	/* VXT */
DEFNAME	("IMIN0",	"imin0",	"IMin0",	genNONE,	specIMIN0)	/* VXT */
DEFNAME	("IMIN1",	"imin1",	"IMin1",	genNONE,	specIMIN1)	/* VXT */
DEFNAME	("IMOD",	"imod",		"IMod",		genNONE,	specIMOD)	/* VXT */
DEFNAME	("INDEX",	"index",	"Index",	genNONE,	specINDEX)
DEFNAME	("ININT",	"inint",	"INInt",	genNONE,	specININT)	/* VXT */
DEFNAME	("INOT",	"inot",		"INot",		genNONE,	specINOT)	/* VXT */
DEFNAME	("INT",		"int",		"Int",		genNONE,	specINT)
DEFNAME	("INT2",	"int2",		"Int2",		genNONE,	specINT2)	/* MS */
DEFNAME	("INT8",	"int8",		"Int8",		genNONE,	specINT8)	/* GNU */
DEFNAME	("IOR",		"ior",		"IOr",		genNONE,	specIOR)	/* F90,	VXT */
DEFNAME	("IRAND",	"irand",	"IRand",	genNONE,	specIRAND)	/* UNIX */
DEFNAME	("ISATTY",	"isatty",	"IsaTty",	genNONE,	specISATTY)	/* UNIX */
DEFNAME	("ISHFT",	"ishft",	"IShft",	genNONE,	specISHFT)	/* F90 */
DEFNAME	("ISHFTC",	"ishftc",	"IShftC",	genNONE,	specISHFTC)	/* F90,	VXT */
DEFNAME	("ISIGN",	"isign",	"ISign",	genNONE,	specISIGN)
DEFNAME	("ITIME",	"itime",	"ITime",	genNONE,	specITIME)	/* UNIX */
DEFNAME	("IZEXT",	"izext",	"IZExt",	genNONE,	specIZEXT)	/* VXT */
DEFNAME	("JIABS",	"jiabs",	"JIAbs",	genNONE,	specJIABS)	/* VXT */
DEFNAME	("JIAND",	"jiand",	"JIAnd",	genNONE,	specJIAND)	/* VXT */
DEFNAME	("JIBCLR",	"jibclr",	"JIBClr",	genNONE,	specJIBCLR)	/* VXT */
DEFNAME	("JIBITS",	"jibits",	"JIBits",	genNONE,	specJIBITS)	/* VXT */
DEFNAME	("JIBSET",	"jibset",	"JIBSet",	genNONE,	specJIBSET)	/* VXT */
DEFNAME	("JIDIM",	"jidim",	"JIDiM",	genNONE,	specJIDIM)	/* VXT */
DEFNAME	("JIDINT",	"jidint",	"JIDInt",	genNONE,	specJIDINT)	/* VXT */
DEFNAME	("JIDNNT",	"jidnnt",	"JIDNnt",	genNONE,	specJIDNNT)	/* VXT */
DEFNAME	("JIEOR",	"jieor",	"JIEOr",	genNONE,	specJIEOR)	/* VXT */
DEFNAME	("JIFIX",	"jifix",	"JIFix",	genNONE,	specJIFIX)	/* VXT */
DEFNAME	("JINT",	"jint",		"JInt",		genNONE,	specJINT)	/* VXT */
DEFNAME	("JIOR",	"jior",		"JIOr",		genNONE,	specJIOR)	/* VXT */
DEFNAME	("JIQINT",	"jiqint",	"JIQint",	genNONE,	specJIQINT)	/* VXT */
DEFNAME	("JIQNNT",	"jiqnnt",	"JIQNnt",	genNONE,	specJIQNNT)	/* VXT */
DEFNAME	("JISHFT",	"jishft",	"JIShft",	genNONE,	specJISHFT)	/* VXT */
DEFNAME	("JISHFTC",	"jishftc",	"JIShftC",	genNONE,	specJISHFTC)	/* VXT */
DEFNAME	("JISIGN",	"jisign",	"JISign",	genNONE,	specJISIGN)	/* VXT */
DEFNAME	("JMAX0",	"jmax0",	"JMax0",	genNONE,	specJMAX0)	/* VXT */
DEFNAME	("JMAX1",	"jmax1",	"JMax1",	genNONE,	specJMAX1)	/* VXT */
DEFNAME	("JMIN0",	"jmin0",	"JMin0",	genNONE,	specJMIN0)	/* VXT */
DEFNAME	("JMIN1",	"jmin1",	"JMin1",	genNONE,	specJMIN1)	/* VXT */
DEFNAME	("JMOD",	"jmod",		"JMod",		genNONE,	specJMOD)	/* VXT */
DEFNAME	("JNINT",	"jnint",	"JNInt",	genNONE,	specJNINT)	/* VXT */
DEFNAME	("JNOT",	"jnot",		"JNot",		genNONE,	specJNOT)	/* VXT */
DEFNAME	("JZEXT",	"jzext",	"JZExt",	genNONE,	specJZEXT)	/* VXT */
DEFNAME	("KILL",	"kill",		"Kill",		genKILL,	specNONE)	/* UNIX */
DEFNAME	("KIND",	"kind",		"Kind",		genNONE,	specKIND)	/* F90 */
DEFNAME	("LBOUND",	"lbound",	"LBound",	genNONE,	specLBOUND)	/* F90 */
DEFNAME	("LEN",		"len",		"Len",		genNONE,	specLEN)
DEFNAME	("LEN_TRIM",	"len_trim",	"Len_Trim",	genNONE,	specLEN_TRIM)	/* F90 */
DEFNAME	("LGE",		"lge",		"LGe",		genNONE,	specLGE)
DEFNAME	("LGT",		"lgt",		"LGt",		genNONE,	specLGT)
DEFNAME	("LINK",	"link",		"Link",		genLINK,	specNONE)	/* UNIX */
DEFNAME	("LLE",		"lle",		"LLe",		genNONE,	specLLE)
DEFNAME	("LLT",		"llt",		"LLt",		genNONE,	specLLT)
DEFNAME	("LNBLNK",	"lnblnk",	"LnBlnk",	genNONE,	specLNBLNK)	/* UNIX */
DEFNAME	("LOC",		"loc",		"Loc",		genNONE,	specLOC)	/* VXT */
DEFNAME	("LOG",		"log",		"Log",		genNONE,	specLOG)
DEFNAME	("LOG10",	"log10",	"Log10",	genNONE,	specLOG10)
DEFNAME	("LOGICAL",	"logical",	"Logical",	genNONE,	specLOGICAL)	/* F90 */
DEFNAME	("LONG",	"long",		"Long",		genNONE,	specLONG)	/* UNIX */
DEFNAME	("LSHIFT",	"lshift",	"LShift",	genNONE,	specLSHIFT)	/* F2C */
DEFNAME	("LSTAT",	"lstat",	"LStat",	genLSTAT,	specNONE)	/* UNIX */
DEFNAME	("LTIME",	"ltime",	"LTime",	genNONE,	specLTIME)	/* UNIX */
DEFNAME	("MATMUL",	"matmul",	"MatMul",	genNONE,	specMATMUL)	/* F90 */
DEFNAME	("MAX",		"max",		"Max",		genNONE,	specMAX)
DEFNAME	("MAX0",	"max0",		"Max0",		genNONE,	specMAX0)
DEFNAME	("MAX1",	"max1",		"Max1",		genNONE,	specMAX1)
DEFNAME	("MAXEXPONENT",	"maxexponent",	"MaxExponent",	genNONE,	specMAXEXPONENT)	/* F90 */
DEFNAME	("MAXLOC",	"maxloc",	"MaxLoc",	genNONE,	specMAXLOC)	/* F90 */
DEFNAME	("MAXVAL",	"maxval",	"MaxVal",	genNONE,	specMAXVAL)	/* F90 */
DEFNAME	("MCLOCK",	"mclock",	"MClock",	genNONE,	specMCLOCK)	/* UNIX */
DEFNAME	("MCLOCK8",	"mclock8",	"MClock8",	genNONE,	specMCLOCK8)	/* UNIX */
DEFNAME	("MERGE",	"merge",	"Merge",	genNONE,	specMERGE)	/* F90 */
DEFNAME	("MIN",		"min",		"Min",		genNONE,	specMIN)
DEFNAME	("MIN0",	"min0",		"Min0",		genNONE,	specMIN0)
DEFNAME	("MIN1",	"min1",		"Min1",		genNONE,	specMIN1)
DEFNAME	("MINEXPONENT",	"minexponent",	"MinExponent",	genNONE,	specMINEXPONENT)	/* F90 */
DEFNAME	("MINLOC",	"minloc",	"MinLoc",	genNONE,	specMINLOC)	/* F90 */
DEFNAME	("MINVAL",	"minval",	"MinVal",	genNONE,	specMINVAL)	/* F90 */
DEFNAME	("MOD",		"mod",		"Mod",		genNONE,	specMOD)
DEFNAME	("MODULO",	"modulo",	"Modulo",	genNONE,	specMODULO)	/* F90 */
DEFNAME	("MVBITS",	"mvbits",	"MvBits",	genNONE,	specMVBITS)	/* F90 */
DEFNAME	("NEAREST",	"nearest",	"Nearest",	genNONE,	specNEAREST)	/* F90 */
DEFNAME	("NINT",	"nint",		"NInt",		genNONE,	specNINT)
DEFNAME	("NOT",		"not",		"Not",		genNONE,	specNOT)	/* F2C,	F90,	VXT */
DEFNAME	("OR",		"or",		"Or",		genNONE,	specOR)	/* F2C */
DEFNAME	("PACK",	"pack",		"Pack",		genNONE,	specPACK)	/* F90 */
DEFNAME	("PERROR",	"perror",	"PError",	genNONE,	specPERROR)	/* UNIX */
DEFNAME	("PRECISION",	"precision",	"Precision",	genNONE,	specPRECISION)	/* F90 */
DEFNAME	("PRESENT",	"present",	"Present",	genNONE,	specPRESENT)	/* F90 */
DEFNAME	("PRODUCT",	"product",	"Product",	genNONE,	specPRODUCT)	/* F90 */
DEFNAME	("QABS",	"qabs",		"QAbs",		genNONE,	specQABS)	/* VXT */
DEFNAME	("QACOS",	"qacos",	"QACos",	genNONE,	specQACOS)	/* VXT */
DEFNAME	("QACOSD",	"qacosd",	"QACosD",	genNONE,	specQACOSD)	/* VXT */
DEFNAME	("QASIN",	"qasin",	"QASin",	genNONE,	specQASIN)	/* VXT */
DEFNAME	("QASIND",	"qasind",	"QASinD",	genNONE,	specQASIND)	/* VXT */
DEFNAME	("QATAN",	"qatan",	"QATan",	genNONE,	specQATAN)	/* VXT */
DEFNAME	("QATAN2",	"qatan2",	"QATan2",	genNONE,	specQATAN2)	/* VXT */
DEFNAME	("QATAN2D",	"qatan2d",	"QATan2D",	genNONE,	specQATAN2D)	/* VXT */
DEFNAME	("QATAND",	"qatand",	"QATanD",	genNONE,	specQATAND)	/* VXT */
DEFNAME	("QCOS",	"qcos",		"QCos",		genNONE,	specQCOS)	/* VXT */
DEFNAME	("QCOSD",	"qcosd",	"QCosD",	genNONE,	specQCOSD)	/* VXT */
DEFNAME	("QCOSH",	"qcosh",	"QCosH",	genNONE,	specQCOSH)	/* VXT */
DEFNAME	("QDIM",	"qdim",		"QDiM",		genNONE,	specQDIM)	/* VXT */
DEFNAME	("QEXP",	"qexp",		"QExp",		genNONE,	specQEXP)	/* VXT */
DEFNAME	("QEXT",	"qext",		"QExt",		genNONE,	specQEXT)	/* VXT */
DEFNAME	("QEXTD",	"qextd",	"QExtD",	genNONE,	specQEXTD)	/* VXT */
DEFNAME	("QFLOAT",	"qfloat",	"QFloat",	genNONE,	specQFLOAT)	/* VXT */
DEFNAME	("QINT",	"qint",		"QInt",		genNONE,	specQINT)	/* VXT */
DEFNAME	("QLOG",	"qlog",		"QLog",		genNONE,	specQLOG)	/* VXT */
DEFNAME	("QLOG10",	"qlog10",	"QLog10",	genNONE,	specQLOG10)	/* VXT */
DEFNAME	("QMAX1",	"qmax1",	"QMax1",	genNONE,	specQMAX1)	/* VXT */
DEFNAME	("QMIN1",	"qmin1",	"QMin1",	genNONE,	specQMIN1)	/* VXT */
DEFNAME	("QMOD",	"qmod",		"QMod",		genNONE,	specQMOD)	/* VXT */
DEFNAME	("QNINT",	"qnint",	"QNInt",	genNONE,	specQNINT)	/* VXT */
DEFNAME	("QSIN",	"qsin",		"QSin",		genNONE,	specQSIN)	/* VXT */
DEFNAME	("QSIND",	"qsind",	"QSinD",	genNONE,	specQSIND)	/* VXT */
DEFNAME	("QSINH",	"qsinh",	"QSinH",	genNONE,	specQSINH)	/* VXT */
DEFNAME	("QSQRT",	"qsqrt",	"QSqRt",	genNONE,	specQSQRT)	/* VXT */
DEFNAME	("QTAN",	"qtan",		"QTan",		genNONE,	specQTAN)	/* VXT */
DEFNAME	("QTAND",	"qtand",	"QTanD",	genNONE,	specQTAND)	/* VXT */
DEFNAME	("QTANH",	"qtanh",	"QTanH",	genNONE,	specQTANH)	/* VXT */
DEFNAME	("RADIX",	"radix",	"Radix",	genNONE,	specRADIX)	/* F90 */
DEFNAME	("RAND",	"rand",		"Rand",		genNONE,	specRAND)	/* UNIX */
DEFNAME	("RANDOM_NUMBER",	"random_number",	"Random_Number",	genNONE,	specRANDOM_NUMBER)	/* F90 */
DEFNAME	("RANDOM_SEED",	"random_seed",	"Random_Seed",	genNONE,	specRANDOM_SEED)	/* F90 */
DEFNAME	("RANGE",	"range",	"Range",	genNONE,	specRANGE)	/* F90 */
DEFNAME	("REAL",	"real",		"Real",		genNONE,	specREAL)
DEFNAME	("REALPART",	"realpart",	"RealPart",	genNONE,	specREALPART)	/* GNU */
DEFNAME	("RENAME",	"rename",	"Rename",	genRENAME,	specNONE)	/* UNIX */
DEFNAME	("REPEAT",	"repeat",	"Repeat",	genNONE,	specREPEAT)	/* F90 */
DEFNAME	("RESHAPE",	"reshape",	"Reshape",	genNONE,	specRESHAPE)	/* F90 */
DEFNAME	("RRSPACING",	"rrspacing",	"RRSpacing",	genNONE,	specRRSPACING)	/* F90 */
DEFNAME	("RSHIFT",	"rshift",	"RShift",	genNONE,	specRSHIFT)	/* F2C */
DEFNAME	("SCALE",	"scale",	"Scale",	genNONE,	specSCALE)	/* F90 */
DEFNAME	("SCAN",	"scan",		"Scan",		genNONE,	specSCAN)	/* F90 */
DEFNAME	("SECNDS",	"secnds",	"Secnds",	genNONE,	specSECNDS)	/* VXT */
DEFNAME	("SECOND",	"second",	"Second",	genSECOND,	specNONE)	/* UNIX */
DEFNAME	("SELECTED_INT_KIND",	"selected_int_kind",	"Selected_Int_Kind",	genNONE,	specSEL_INT_KIND)	/* F90 */
DEFNAME	("SELECTED_REAL_KIND",	"selected_real_kind",	"Selected_Real_Kind",	genNONE,	specSEL_REAL_KIND)	/* F90 */
DEFNAME	("SET_EXPONENT",	"set_exponent",	"Set_Exponent",	genNONE,	specSET_EXPONENT)	/* F90 */
DEFNAME	("SHAPE",	"shape",	"Shape",	genNONE,	specSHAPE)	/* F90 */
DEFNAME	("SHORT",	"short",	"Short",	genNONE,	specSHORT)	/* UNIX */
DEFNAME	("SIGN",	"sign",		"Sign",		genNONE,	specSIGN)
DEFNAME	("SIGNAL",	"signal",	"Signal",	genSIGNAL,	specNONE)	/* UNIX */
DEFNAME	("SIN",		"sin",		"Sin",		genNONE,	specSIN)
DEFNAME	("SIND",	"sind",		"SinD",		genNONE,	specSIND)	/* VXT */
DEFNAME	("SINH",	"sinh",		"SinH",		genNONE,	specSINH)
DEFNAME	("SLEEP",	"sleep",	"Sleep",	genNONE,	specSLEEP)	/* UNIX */
DEFNAME	("SNGL",	"sngl",		"Sngl",		genNONE,	specSNGL)
DEFNAME	("SNGLQ",	"snglq",	"SnglQ",	genNONE,	specSNGLQ)	/* VXT */
DEFNAME	("SPACING",	"spacing",	"Spacing",	genNONE,	specSPACING)	/* F90 */
DEFNAME	("SPREAD",	"spread",	"Spread",	genNONE,	specSPREAD)	/* F90 */
DEFNAME	("SQRT",	"sqrt",		"SqRt",		genNONE,	specSQRT)
DEFNAME	("SRAND",	"srand",	"SRand",	genNONE,	specSRAND)	/* UNIX */
DEFNAME	("STAT",	"stat",		"Stat",		genSTAT,	specNONE)	/* UNIX */
DEFNAME	("SUM",		"sum",		"Sum",		genNONE,	specSUM)	/* F90 */
DEFNAME	("SYMLNK",	"symlnk",	"SymLnk",	genSYMLNK,	specNONE)	/* UNIX */
DEFNAME	("SYSTEM",	"system",	"System",	genSYSTEM,	specNONE)	/* UNIX */
DEFNAME	("SYSTEM_CLOCK",	"system_clock",	"System_Clock",	genNONE,	specSYSTEM_CLOCK)	/* F90 */
DEFNAME	("TAN",		"tan",		"Tan",		genNONE,	specTAN)
DEFNAME	("TAND",	"tand",		"TanD",		genNONE,	specTAND)	/* VXT */
DEFNAME	("TANH",	"tanh",		"TanH",		genNONE,	specTANH)
DEFNAME	("TIME",	"time",		"Time",		genTIME,	specNONE)	/* UNIX, VXT */
DEFNAME	("TIME8",	"time8",	"Time8",	genNONE,	specTIME8)	/* UNIX */
DEFNAME	("TINY",	"tiny",		"Tiny",		genNONE,	specTINY)	/* F90 */
DEFNAME	("TRANSFER",	"transfer",	"Transfer",	genNONE,	specTRANSFER)	/* F90 */
DEFNAME	("TRANSPOSE",	"transpose",	"Transpose",	genNONE,	specTRANSPOSE)	/* F90 */
DEFNAME	("TRIM",	"trim",		"Trim",		genNONE,	specTRIM)	/* F90 */
DEFNAME	("TTYNAM",	"ttynam",	"TtyNam",	genTTYNAM,	specNONE)	/* UNIX */
DEFNAME	("UBOUND",	"ubound",	"UBound",	genNONE,	specUBOUND)	/* F90 */
DEFNAME	("UMASK",	"umask",	"UMask",	genUMASK,	specNONE)	/* UNIX */
DEFNAME	("UNLINK",	"unlink",	"Unlink",	genUNLINK,	specNONE)	/* UNIX */
DEFNAME	("UNPACK",	"unpack",	"Unpack",	genNONE,	specUNPACK)	/* F90 */
DEFNAME	("VERIFY",	"verify",	"Verify",	genNONE,	specVERIFY)	/* F90 */
DEFNAME	("XOR",		"xor",		"XOr",		genNONE,	specXOR)	/* F2C */
DEFNAME	("ZABS",	"zabs",		"ZAbs",		genNONE,	specZABS)	/* F2C */
DEFNAME	("ZCOS",	"zcos",		"ZCos",		genNONE,	specZCOS)	/* F2C */
DEFNAME	("ZEXP",	"zexp",		"ZExp",		genNONE,	specZEXP)	/* F2C */
DEFNAME	("ZEXT",	"zext",		"ZExt",		genNONE,	specZEXT)	/* VXT */
DEFNAME	("ZLOG",	"zlog",		"ZLog",		genNONE,	specZLOG)	/* F2C */
DEFNAME	("ZSIN",	"zsin",		"ZSin",		genNONE,	specZSIN)	/* F2C */
DEFNAME	("ZSQRT",	"zsqrt",	"ZSqRt",	genNONE,	specZSQRT)	/* F2C */

/* Internally generic intrinsics.

   Should properly be called "mapped" intrinsics.  These are intrinsics
   that map to one or more generally different implementations -- e.g.
   that have differing interpretations depending on the Fortran dialect
   being used.  Also, this includes the placeholder intrinsics that
   have no specific versions, but we want to reserve the names for now.  */

DEFGEN (CTIME, "CTIME",		/* UNIX */
    FFEINTRIN_specCTIME_subr,
    FFEINTRIN_specCTIME_func
  )
DEFGEN (CHDIR, "CHDIR", 	/* UNIX */
    FFEINTRIN_specCHDIR_subr,
    FFEINTRIN_specCHDIR_func
  )
DEFGEN (CHMOD, "CHMOD", 	/* UNIX */
    FFEINTRIN_specCHMOD_subr,
    FFEINTRIN_specCHMOD_func
  )
DEFGEN (DTIME, "DTIME", 	/* UNIX */
    FFEINTRIN_specDTIME_subr,
    FFEINTRIN_specDTIME_func
  )
DEFGEN (ETIME, "ETIME", 	/* UNIX */
    FFEINTRIN_specETIME_subr,
    FFEINTRIN_specETIME_func
  )
DEFGEN (FDATE, "FDATE", 	/* UNIX */
    FFEINTRIN_specFDATE_subr,
    FFEINTRIN_specFDATE_func
  )
DEFGEN (FGET, "FGET",	 	/* UNIX */
    FFEINTRIN_specFGET_subr,
    FFEINTRIN_specFGET_func
  )
DEFGEN (FGETC, "FGETC", 	/* UNIX */
    FFEINTRIN_specFGETC_subr,
    FFEINTRIN_specFGETC_func
  )
DEFGEN (FPABSP, "FPABSP",	/* F2C */
    FFEINTRIN_specNONE,
    FFEINTRIN_specNONE
  )
DEFGEN (FPEXPN, "FPEXPN",	/* F2C */
    FFEINTRIN_specNONE,
    FFEINTRIN_specNONE
  )
DEFGEN (FPFRAC, "FPFRAC",	/* F2C */
    FFEINTRIN_specNONE,
    FFEINTRIN_specNONE
  )
DEFGEN (FPMAKE, "FPMAKE",	/* F2C */
    FFEINTRIN_specNONE,
    FFEINTRIN_specNONE
  )
DEFGEN (FPRRSP, "FPRRSP",	/* F2C */
    FFEINTRIN_specNONE,
    FFEINTRIN_specNONE
  )
DEFGEN (FPSCAL, "FPSCAL",	/* F2C */
    FFEINTRIN_specNONE,
    FFEINTRIN_specNONE
  )
DEFGEN (FPUT, "FPUT",	 	/* UNIX */
    FFEINTRIN_specFPUT_subr,
    FFEINTRIN_specFPUT_func
  )
DEFGEN (FPUTC, "FPUTC", 	/* UNIX */
    FFEINTRIN_specFPUTC_subr,
    FFEINTRIN_specFPUTC_func
  )
DEFGEN (FSTAT, "FSTAT", 	/* UNIX */
    FFEINTRIN_specFSTAT_subr,
    FFEINTRIN_specFSTAT_func
  )
DEFGEN (FTELL, "FTELL", 	/* UNIX */
    FFEINTRIN_specFTELL_subr,
    FFEINTRIN_specFTELL_func
  )
DEFGEN (GETCWD, "GETCWD", 	/* UNIX */
    FFEINTRIN_specGETCWD_subr,
    FFEINTRIN_specGETCWD_func
  )
DEFGEN (HOSTNM, "HOSTNM", 	/* UNIX */
    FFEINTRIN_specHOSTNM_subr,
    FFEINTRIN_specHOSTNM_func
  )
DEFGEN (IDATE, "IDATE",		/* UNIX/VXT */
    FFEINTRIN_specIDATE_unix,
    FFEINTRIN_specIDATE_vxt
  )
DEFGEN (KILL, "KILL", 		/* UNIX */
    FFEINTRIN_specKILL_subr,
    FFEINTRIN_specKILL_func
  )
DEFGEN (LINK, "LINK", 		/* UNIX */
    FFEINTRIN_specLINK_subr,
    FFEINTRIN_specLINK_func
  )
DEFGEN (LSTAT, "LSTAT", 	/* UNIX */
    FFEINTRIN_specLSTAT_subr,
    FFEINTRIN_specLSTAT_func
  )
DEFGEN (RENAME, "RENAME", 	/* UNIX */
    FFEINTRIN_specRENAME_subr,
    FFEINTRIN_specRENAME_func
  )
DEFGEN (SECOND, "SECOND",	/* UNIX/CRAY */
    FFEINTRIN_specSECOND_func,
    FFEINTRIN_specSECOND_subr
  )
DEFGEN (SIGNAL, "SIGNAL", 	/* UNIX */
    FFEINTRIN_specSIGNAL_subr,
    FFEINTRIN_specSIGNAL_func
  )
DEFGEN (STAT, "STAT", 		/* UNIX */
    FFEINTRIN_specSTAT_subr,
    FFEINTRIN_specSTAT_func
  )
DEFGEN (SYMLNK, "SYMLNK", 	/* UNIX */
    FFEINTRIN_specSYMLNK_subr,
    FFEINTRIN_specSYMLNK_func
  )
DEFGEN (SYSTEM, "SYSTEM", 	/* UNIX */
    FFEINTRIN_specSYSTEM_subr,
    FFEINTRIN_specSYSTEM_func
  )
DEFGEN (TIME, "TIME",		/* UNIX/VXT */
    FFEINTRIN_specTIME_unix,
    FFEINTRIN_specTIME_vxt
  )
DEFGEN (TTYNAM, "TTYNAM",	/* UNIX/VXT */
    FFEINTRIN_specTTYNAM_subr,
    FFEINTRIN_specTTYNAM_func
  )
DEFGEN (UMASK, "UMASK", 	/* UNIX */
    FFEINTRIN_specUMASK_subr,
    FFEINTRIN_specUMASK_func
  )
DEFGEN (UNLINK, "UNLINK", 	/* UNIX */
    FFEINTRIN_specUNLINK_subr,
    FFEINTRIN_specUNLINK_func
  )
DEFGEN (NONE, "none",
    FFEINTRIN_specNONE,
    FFEINTRIN_specNONE
  )

/* Specific intrinsic information.

   Currently this list starts with the list of F77-standard intrinsics
   in alphabetical order, then continues with the list of all other
   intrinsics.

   The second boolean argument specifies whether the intrinsic is
   allowed by the standard to be passed as an actual argument.  */

DEFSPEC (ABS,
    "ABS",
    TRUE,
    FFEINTRIN_familyF77,
    FFEINTRIN_impABS
  )
DEFSPEC (ACOS,
    "ACOS",
    TRUE,
    FFEINTRIN_familyF77,
    FFEINTRIN_impACOS
  )
DEFSPEC (AIMAG,
    "AIMAG",
    TRUE,
    FFEINTRIN_familyF77,
    FFEINTRIN_impAIMAG
  )
DEFSPEC (AINT,
    "AINT",
    TRUE,
    FFEINTRIN_familyF77,