(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