From: Paul Brook <pbrook@gcc.gnu.org>
Date: Sat, 22 May 2004 17:28:48 +0000 (+0000)
Subject: * intrinsic.c (add_subroutines): Use add_sym_3s for random_seed.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c1c52409c7f80e9656eb8a1a9e09f7f29f1c866a;p=gcc.git

* intrinsic.c (add_subroutines): Use add_sym_3s for random_seed.

From-SVN: r82139
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index a122e70d2f2..c664f78719f 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,4 +1,8 @@
-2004-05-22  Pau Brook  <paul@codesourcery.com>
+2004-05-22  Steven G. Kargl  <kargls@comcast.net>
+
+	* intrinsic.c (add_subroutines): Use add_sym_3s for random_seed.
+
+2004-05-22  Paul Brook  <paul@codesourcery.com>
 
 	* dump-parse-tree.c (gfc_show_equiv): New function.
 	(gfc_show_namespace): Use it.
diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c
index 7b77fdb6eed..421302f7cc0 100644
--- a/gcc/fortran/intrinsic.c
+++ b/gcc/fortran/intrinsic.c
@@ -1654,7 +1654,7 @@ add_subroutines (void)
 	      gfc_check_random_number, NULL, gfc_resolve_random_number,
 	      h, BT_REAL, dr, 0);
 
-  add_sym_3 ("random_seed", 0, 1, BT_UNKNOWN, 0,
+  add_sym_3s ("random_seed", 0, 1, BT_UNKNOWN, 0,
 	     gfc_check_random_seed, NULL, NULL,
 	     sz, BT_INTEGER, di, 1, pt, BT_INTEGER, di, 1,
 	     gt, BT_INTEGER, di, 1);