[Bug fortran/15597] New: [gfortran] Too many arguments to RANDOM_SEED are accepted.

["gcc-bugzilla at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

Gfortran compiles the following code:

   program s
   integer, allocatable :: a(:)
   integer n
   call random_seed(size=n)
   allocate(a(n))
   !
   ! This is illegal.
   ! 13.7.91   RANDOM SEED([SIZE, PUT, GET])
   ! Description.  Restarts or queries the pseudorandom number generator
   ! used by RANDOM_NUMBER.
   !   Class.     Subroutine.
   !   Arguments. There shall either be exactly one or no arguments present.
   !
   call random_seed(size=n, get=a)
   end program s

Environment:
System: FreeBSD c-67-168-59-70.client.comcast.net 5.2-CURRENT FreeBSD 5.2-CURRENT #2: Sat Apr 24 10:33:08 PDT 2004 kargl@c-67-168-59-70.client.comcast.net:/usr/obj/usr/src/sys/HOTRATS i386


	
host: i386-unknown-freebsd5.2
build: i386-unknown-freebsd5.2
target: i386-unknown-freebsd5.2
configured with: ../gcc/configure --prefix=/home/kargl/gcc/work --enable-languages=c,f95

How-To-Repeat:
   See above.

-- 
           Summary: [gfortran] Too many arguments to RANDOM_SEED are
                    accepted.
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: kargl at c-67-168-59-70 dot client dot comcast dot net
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i386-unknown-freebsd5.2
  GCC host triplet: i386-unknown-freebsd5.2
GCC target triplet: i386-unknown-freebsd5.2


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15597