gdb/gdb/f-lang.c

89 static struct type *f_create_fundamental_type (struct objfile *, int);
251 f_create_fundamental_type (struct objfile *objfile, int typeid)
260 			0, "VOID", objfile);
265 			TYPE_FLAG_UNSIGNED, "boolean", objfile);
270 			0, "string", objfile);
275 			0, "character", objfile);
280 			0, "integer*1", objfile);
285 			TYPE_FLAG_UNSIGNED, "logical*1", objfile);
290 			0, "integer*2", objfile);
295 			0, "short", objfile);	/* FIXME-fnf */
300 			TYPE_FLAG_UNSIGNED, "logical*2", objfile);
305 			0, "integer*4", objfile);
310 			0, "integer", objfile);		/* FIXME -fnf */
315 			TYPE_FLAG_UNSIGNED, "logical*4", objfile);
320 			0, "fixed decimal", objfile);
325 			0, "long", objfile);
330 			0, "long", objfile);	/* FIXME -fnf */
335 			TYPE_FLAG_UNSIGNED, "unsigned long", objfile);
340 			0, "long long", objfile);
345 			0, "signed long long", objfile);
350 			TYPE_FLAG_UNSIGNED, "unsigned long long", objfile);
355 			0, "real", objfile);
360 			0, "real*8", objfile);
365 			0, "floating decimal", objfile);
370 			0, "real*16", objfile);
375 			0, "complex*8", objfile);
381 			0, "complex*16", objfile);
387 			0, "complex*32", objfile);
397 			0, "<?type?>", objfile);
500 	       "VOID", (struct objfile *) NULL);
505 	       "character", (struct objfile *) NULL);
510 	       "logical*1", (struct objfile *) NULL);
515 	       "integer*2", (struct objfile *) NULL);
520 	       "logical*2", (struct objfile *) NULL);
525 	       "integer", (struct objfile *) NULL);
530 	       "logical*4", (struct objfile *) NULL);
535 	       "real", (struct objfile *) NULL);
540 	       "real*8", (struct objfile *) NULL);
545 	       "real*16", (struct objfile *) NULL);
550 	       "complex*8", (struct objfile *) NULL);
556 	       "complex*16", (struct objfile *) NULL);
565 	       "complex*32", (struct objfile *) NULL);
593 	       "character string", (struct objfile *) NULL);