aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCraig Burley <craig@jcb-sc.com>1999-05-01 22:45:14 +0000
committerCraig Burley <burley@gcc.gnu.org>1999-05-01 18:45:14 -0400
commit851fc3922bf23a13494e0f7d74b6d335bef09ca5 (patch)
tree0c6dff8d23cac65e6ebb6fcaca4c088fc3982b58
parent78b2090a42f30dd1aac5285593495fe721493c7a (diff)
downloadgcc-851fc3922bf23a13494e0f7d74b6d335bef09ca5.zip
gcc-851fc3922bf23a13494e0f7d74b6d335bef09ca5.tar.gz
gcc-851fc3922bf23a13494e0f7d74b6d335bef09ca5.tar.bz2
declare FTELL as intrinsic
From-SVN: r26721
-rw-r--r--gcc/testsuite/ChangeLog5
-rw-r--r--gcc/testsuite/g77.f-torture/execute/u77-test.f2
-rw-r--r--libf2c/ChangeLog4
-rw-r--r--libf2c/libU77/u77-test.f2
4 files changed, 11 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 95c270b..70167b0 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Sun May 2 01:38:50 1999 Craig Burley <craig@jcb-sc.com>
+
+ * g77.f-torture/execute/u77-test.f (main): Declare FTELL as
+ intrinsic.
+
Sun May 2 01:13:37 1999 Craig Burley <craig@jcb-sc.com>
* g77.f-torture/execute/u77-test.f (main): List libU77
diff --git a/gcc/testsuite/g77.f-torture/execute/u77-test.f b/gcc/testsuite/g77.f-torture/execute/u77-test.f
index edbcf2f..7377f48 100644
--- a/gcc/testsuite/g77.f-torture/execute/u77-test.f
+++ b/gcc/testsuite/g77.f-torture/execute/u77-test.f
@@ -50,7 +50,7 @@
+ stat, lstat, getcwd, gmtime, etime, chmod, itime, date,
+ chdir, fgetc, fputc, system_clock, second, idate, secnds,
+ time, ctime, fdate, ttynam, date_and_time, mclock, mclock8,
- + cpu_time, dtime
+ + cpu_time, dtime, ftell
external lenstr, ctrlc
integer lenstr
logical l
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index c79e624..7287588 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,7 @@
+Sun May 2 01:38:50 1999 Craig Burley <craig@jcb-sc.com>
+
+ * libU77/u77-test.f (main): Declare FTELL as intrinsic.
+
Sun May 2 01:13:37 1999 Craig Burley <craig@jcb-sc.com>
* libU77/u77-test.f (main): List libU77 intrinsics
diff --git a/libf2c/libU77/u77-test.f b/libf2c/libU77/u77-test.f
index f338b81..88a7a83 100644
--- a/libf2c/libU77/u77-test.f
+++ b/libf2c/libU77/u77-test.f
@@ -53,7 +53,7 @@
+ stat, lstat, getcwd, gmtime, etime, chmod, itime, date,
+ chdir, fgetc, fputc, system_clock, second, idate, secnds,
+ time, ctime, fdate, ttynam, date_and_time, mclock, mclock8,
- + cpu_time, dtime
+ + cpu_time, dtime, ftell
external lenstr, ctrlc
integer lenstr
logical l