[Bug fortran/20481] New: RAN() should not be an intrinsic function

[lei at il dot ibm dot com]

(1) This example compiles with ibm xlf compiler, and (2) I could not
find any reference to RAN intrinsic in the last draft standard.

hadas:~% cat 1000d_linpack.f 
      double precision function ran( iseed )
      integer iseed(4)
      ran = 0.0
      end

      program linpack_test
      integer i(4)
      double precision r
      r = ran(i)
      end

hadas:~% gfortran -c 1000d_linpack.f
 In file 1000d_linpack.f:9

      r = ran(i)                                                        
             1
Error: 'i' argument of 'ran' intrinsic at (1) must be a scalar

-- 
           Summary: RAN() should not be an intrinsic function
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: lei at il dot ibm dot com
                CC: gcc-bugs at gcc dot gnu dot org


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