selected_real_kind() problem

Hi Andy,

With the 8/11/03 snapshot I get errors using valid 
selected_real_kind() operationsm and get errors like this:

In file sng_mdl.f90:345

    real(selected_real_kind(p=6)),intent(out)::opt_val ! O [sng] Variable to re
                            1
Error: Symbol 'p' at (1) has no IMPLICIT type

Pre-processed source *.f90 will follow as attachments in next email.
Following commands should produce a nice executable.

  FC='g95'
  src_lst='dbg_mdl sng_mdl sng'
  for fl_stb in ${src_lst}; do
     cpp -P -C -DPRC_FLT -DLINUX -I. -I/usr/local/include ${fl_stb}.F90 > ${fl_stb}.f90
     ${FC} -c -o ${fl_stb}.o ${fl_stb}.f90
  done
  ${FC} -o sng dbg_mdl.o sng_mdl.o sng.o

Note that even if selected_real_kind() error is fixed,
getarg() and iargc() have never worked for me with g95.
Since this program also uses those intrinsics, it has never compiled
for me even though you mentioned you intended to include it in the 
test suite.

P.S. is there a way of telling g95 to do the cpp pre-processing that
I manually tell cpp to do in the above line?

Thanks!
Charlie
-- 
Charlie Zender, zender at uci dot edu, (949) 824-2987, Department of
Earth System Science, University of California, Irvine CA 92697-3100




-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01