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