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: r16494

diff --git a/gcc/f/ChangeLog.egcs b/gcc/f/ChangeLog.egcs
index 9f11174616b60acedaec8deda22aae96df2b76e5..753b0413d1aa65844c2cbd80f58a2ac525c89674 100644 (file)
--- a/gcc/f/ChangeLog.egcs
+++ b/gcc/f/ChangeLog.egcs
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/f/intrin.def b/gcc/f/intrin.def
index 66ca3c0a215d82efb61125d53f119799766bad53..fb40cc663c9b1b7cb31ff3cb1d33995af65209d3 100644 (file)
--- a/gcc/f/intrin.def
+++ b/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*")

diff --git a/gcc/f/news.texi b/gcc/f/news.texi
index 411ed7054697821767f6ced71be63620fd903181..780cfff75389bac2c7bdd6ca8a5ca88da8299253 100644 (file)
--- a/gcc/f/news.texi
+++ b/gcc/f/news.texi
@@ -37,6 +37,9 @@ Fix a compiler crash involving optimization of
 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,
@@ -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}