2004-10-30 Canqun Yang <canqun@nudt.edu.cn>
commitda1ce3b9299c3042a402ab93e2e8edc17fed7187
authorpbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 30 Oct 2004 14:18:34 +0000 (30 14:18 +0000)
committerpbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 30 Oct 2004 14:18:34 +0000 (30 14:18 +0000)
tree7000c863d0f16b0b8e5755c5819227f439868d5f
parent640e9781c56488a14e708bc7bc21b2371870dc6b
2004-10-30  Canqun Yang  <canqun@nudt.edu.cn>

* check.c (gfc_check_rand): Allow missing optional argument.
(gfc_check_irand): Ditto.
* intrinsic.c (add_functions): Set arg optional flag for {i,}rand.
libgfortran/
* intrinsics/rand.c (irand): Handle NULL argument.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@89886 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/check.c
gcc/fortran/intrinsic.c
libgfortran/ChangeLog
libgfortran/intrinsics/rand.c