intrin.def: Supply gfrt for CPU_TIME.

1997-11-14  Dave Love  <d.love@dl.ac.uk>

	* intrin.def: Supply gfrt for CPU_TIME.  Generalize arg types of
	INT2, INT8, per doc.

From-SVN: r16496

gcc/f/ChangeLog.egcs

+1997-11-14  Dave Love  <d.love@dl.ac.uk>
+
+	* intrin.def: Supply gfrt for CPU_TIME.  Generalize arg types of
+	INT2, INT8, per doc.
+
 Sun Nov  2 19:49:51 1997  Richard Henderson  <rth@cygnus.com>
 
 	* com.c (ffecom_expr_): Only use TREE_TYPE argument for simple

gcc/f/intrin.def

@@ -3229,7 +3229,7 @@ DEFIMP	(CHDIR_subr,	"CHDIR_subr",	CHDIR,,,	"--:-:Dir=A1,Status=?I1w")
 DEFIMP	(CHMOD_func,	"CHMOD_func",	CHMOD,,,	"I1:-:Name=A1,Mode=A1")
 DEFIMP	(CHMOD_subr,	"CHMOD_subr",	CHMOD,,,	"--:-:Name=A1,Mode=A1,Status=?I1w")
 DEFIMP	(COMPLEX,	"COMPLEX",	,,,		"C=:*:Real=S*,Imag=S*")
-DEFIMP  (CPU_TIME,	"CPU_TIME",	,,,		"--:-:Seconds=R1w")
+DEFIMP  (CPU_TIME,	"CPU_TIME",	SECOND,,,	"--:-:Seconds=R1w")
 DEFIMP  (CTIME_func,	"CTIME_func",	CTIME,,,	"A1*:-:STime=I*")
 DEFIMP  (CTIME_subr,	"CTIME_subr",	CTIME,,,	"--:-:Result=A1w,STime=I*")
 DEFIMP  (DATE,		"DATE",		DATE,,,		"--:-:Date=A1w")
@@ -3293,8 +3293,8 @@ DEFIMP	(IEOR,		"IEOR",		,,,		"I=:*:I=I*,J=I*")
 DEFIMP	(IOR,		"IOR",		,,,		"I=:*:I=I*,J=I*")
 DEFIMP  (IERRNO,	"IERRNO",	IERRNO,,,	"I1:-:")
 DEFIMP	(IMAGPART,	"IMAGPART",	,,,		"R=:0:Z=C*")
-DEFIMP	(INT2,		"INT2",		,,,		"I6:-:A=I*")
-DEFIMP	(INT8,		"INT8",		,,,		"I2:-:A=I*")
+DEFIMP	(INT2,		"INT2",		,,,		"I6:-:A=N*")
+DEFIMP	(INT8,		"INT8",		,,,		"I2:-:A=N*")
 DEFIMP  (IRAND,		"IRAND",	IRAND,,,	"I1:-:Flag=?I*")
 DEFIMP  (ISATTY,	"ISATTY",	ISATTY,,,	"L1:-:Unit=I*")
 DEFIMP	(ISHFT,		"ISHFT",	,,,		"I=:0:I=I*,Shift=I*")

gcc/f/news.texi

@@ -38,6 +38,9 @@ certain complicated expressions involving @code{COMPLEX}
 arithmetic (especially multiplication).
 
 @item
+Fix an internal error compiling the @code{Cpu_Time} intrinsic.
+
+@item
 Rename the @code{gcc} keyword @code{restrict} to
 @code{__restrict__}, to avoid rejecting valid, existing,
 C programs.
@@ -46,7 +49,8 @@ for @code{complex}.
 
 @item
 Fix @code{DTime} intrinsic so as not to truncate
-results to integer values (on some systems).
+results to integer values (on some systems) and allow general numeric
+args for the  @code{Int2} and @code{Int8} intrinsics.
 
 @item
 Improve diagnostic messages from @code{libf2c}