[unix-history] / usr / src / cmd / f77 / ftypes


/* variable types
 * numeric assumptions:
 *	int < reals < complexes
 *	TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
 */

#define TYUNKNOWN 0
#define TYADDR 1
#define TYSHORT 2
#define TYLONG 3
#define TYREAL 4
#define TYDREAL 5
#define TYCOMPLEX 6
#define TYDCOMPLEX 7
#define TYLOGICAL 8
#define TYCHAR 9
#define TYSUBR 10
#define TYERROR 11

#define NTYPES (TYERROR+1)
Commit	Line	Data
0d57d6f5 TL	1
	2	/* variable types
	3	* numeric assumptions:
	4	* int < reals < complexes
	5	* TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
	6	*/
	7
	8	#define TYUNKNOWN 0
	9	#define TYADDR 1
	10	#define TYSHORT 2
	11	#define TYLONG 3
	12	#define TYREAL 4
	13	#define TYDREAL 5
	14	#define TYCOMPLEX 6
	15	#define TYDCOMPLEX 7
	16	#define TYLOGICAL 8
	17	#define TYCHAR 9
	18	#define TYSUBR 10
	19	#define TYERROR 11
	20
	21	#define NTYPES (TYERROR+1)