Error: symbol '' is already defined

Hi,

I am compiling a piece of code (for debugging) and am experiencing a strange behaviour. If I compile using the following options…


pgf90 -c -I. -I../src -Kieee -Mbyteswapio -Mfree -Mpreprocess -Minform=inform -Minfo=all -Mneginfo=all -O0 -C -g -gopt -Mbounds -Mchkfpstk -Mchkptr -Ktrap=fp -traceback -Mdepchk -Mchkstk -Mstandard -o src_obs_processing.o src_obs_processing.f90

…I get an error during the assembly phase…

PGF90-I-0035-Predefined intrinsic date loses intrinsic property (/users/olifu/work/svn/trunk/cosmo_c2sm_wc/src
/info_lm_f90.f90: 135)
PGF90-I-0035-Predefined intrinsic time loses intrinsic property (/users/olifu/work/svn/trunk/cosmo_c2sm_wc/src
/info_lm_f90.f90: 135)
PGF90-I-0035-Predefined intrinsic date loses intrinsic property (/users/olifu/work/svn/trunk/cosmo_c2sm_wc/src
/info_lm_f90.f90: 187)
PGF90-I-0035-Predefined intrinsic time loses intrinsic property (/users/olifu/work/svn/trunk/cosmo_c2sm_wc/src
/info_lm_f90.f90: 187)
PGF90-I-0035-Predefined intrinsic date loses intrinsic property (/users/olifu/work/svn/trunk/cosmo_c2sm_wc/src
/info_lm_f90.f90: 397)
PGF90-I-0035-Predefined intrinsic time loses intrinsic property (/users/olifu/work/svn/trunk/cosmo_c2sm_wc/src
/info_lm_f90.f90: 397)
PGF90-I-0035-Predefined intrinsic count loses intrinsic property (/users/olifu/work/svn/trunk/cosmo_c2sm_wc/sr
c/info_lm_f90.f90: 443)
pgf90 -c -I. -I/users/olifu/work/svn/trunk/cosmo_c2sm_wc/src -I/opt/cray/mpt/5.1.0/xt/seastar/mpich2-pgi/inclu
de  -Kieee -Mbyteswapio -Mfree -Mpreprocess -Minform=inform -Minfo=all -Mneginfo=all -O0 -C -g -gopt -Mbounds 
-Mchkfpstk -Mchkptr -Ktrap=fp -traceback -Mdepchk -Mchkstk -Mstandard  -o lmorg.o /users/olifu/work/svn/trunk/
cosmo_c2sm_wc/src/lmorg.f90
PGF90-I-0035-Predefined intrinsic ibits loses intrinsic property (/users/olifu/work/svn/trunk/cosmo_c2sm_wc/sr
c/src_obs_processing.f90: 1794)
PGF90-I-0035-Predefined intrinsic ilen loses intrinsic property (/users/olifu/work/svn/trunk/cosmo_c2sm_wc/src
/src_obs_processing.f90: 1884)
PGF90-I-0035-Predefined intrinsic ibits loses intrinsic property (/users/olifu/work/svn/trunk/cosmo_c2sm_wc/sr
c/src_obs_processing.f90: 2311)
PGF90-I-0035-Predefined intrinsic ilen loses intrinsic property (/users/olifu/work/svn/trunk/cosmo_c2sm_wc/src
/src_obs_processing.f90: 2709)
PGF90-I-0035-Predefined intrinsic ibits loses intrinsic property (/users/olifu/work/svn/trunk/cosmo_c2sm_wc/sr
c/src_obs_processing.f90: 6008)
initialize_loop:
   1331, minval reduction inlined
   1356, minval reduction inlined
/tmp/pgf90JA0Pdb1Liyz.s: Assembler messages:
/tmp/pgf90JA0Pdb1Liyz.s:176150: Error: symbol `src_obs_processing_obs_read_gps_' is already defined

The error doesn’t occur if I simply remove the -Mstandard flag. The code is a Fortran module along the lines…

module src_obs_processing
implicit none
contains
subroutine something
implicit none
  call obs_read_gps
end subroutine something
subroutine src_read_gps
implicit none
end subroutine src_read_gps

Any ideas are welcome!

Thanks,
Oli

Hi Oli,

Can you please post or send to PGI Customer Service (trs@pgroup.com) a reproducing example?

“-Mstandard” should not effect code generation and unclear why you would be getting this error.

Thanks,
Mat