FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
From-SVN: r82139
This commit is contained in:
Paul Brook 2004-05-22 17:28:48 +00:00
parent 6ad70bf28a
commit c1c52409c7
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View file

@ -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.

2
gcc/fortran/intrinsic.c
View file

@ -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);