PGI User Forum
 SearchSearch   MemberlistMemberlist     RegisterRegister   ProfileProfile    Log inLog in 

Free OpenACC Webinar

PGF90-S-0155-Intrinsic not supported in initialization: atan

 
Post new topic   Reply to topic    PGI User Forum Forum Index -> Programming and Compiling
View previous topic :: View next topic  
Author Message
Jerryleo



Joined: 22 Aug 2005
Posts: 36

PostPosted: Thu Apr 29, 2010 10:20 am    Post subject: PGF90-S-0155-Intrinsic not supported in initialization: atan Reply with quote

My code compiled fine with xlf on IBM platform. While compiled on linux box with PGI compiler, it complained "PGF90-S-0155-Intrinsic not supported in initialization: atan". I googled it hard, but found little information about it. Which sort of error it is? Thanks
Here is error message
Code:

911 /karri/users/jliu/WRFDA_be/tools/standard.exe gen_be_stage2_gsi.f90 > gen_be_stage2_gsi.b
912 /lib/cpp -C -P -DEM_CORE=1 -DNMM_CORE=0 -DNMM_MAX_DIM=2600 -DCOAMPS_CORE=0 -DDA_CORE=1 -DDFI_RADAR=0 -DEXP_CORE=0 -DIWORDSIZE=4 -DDWORDSIZE=8 -DRWORDSIZ     E=8 -DLWORDSIZE=4 -DNONSTANDARD_SYSTEM_SUBR     -DFFTPACK -DNORESHAPE -DDM_PARALLEL -DNETCDF -DGRIB1 -DINTIO -DLIMIT_ARGS -DCONFIG_BUF_LEN=32768 -DMAX_D     OMAINS_F=21 -DMAX_HISTORY=25 -DNMM_NEST=0  -I. -traditional   -I/karri/users/jliu/WRFDA_be/inc gen_be_stage2_gsi.b  > gen_be_stage2_gsi.f
913 rm -f gen_be_stage2_gsi.b
914 if fgrep -iq '!$OMP' gen_be_stage2_gsi.f ; then \
915           if [ -n "" ] ; then echo COMPILING gen_be_stage2_gsi.f90 WITH OMP ; fi ; \
916           mpif90 -f90=pgf90 -o gen_be_stage2_gsi.o -c -fastsse -Mvect=noaltcode -Msmartalloc -Mprefetch=distance:8 -Mfprelaxed  -w -Mfree -byteswapio        -r8 -i4 gen_be_stage2_gsi.f ; \
917         else \
918           if [ -n "" ] ; then echo COMPILING gen_be_stage2_gsi.f90 WITHOUT OMP ; fi ; \
919           mpif90 -f90=pgf90 -o gen_be_stage2_gsi.o -c -fastsse -Mvect=noaltcode -Msmartalloc -Mprefetch=distance:8 -Mfprelaxed  -w -Mfree -byteswapio  -     r8 -i4 gen_be_stage2_gsi.f ; \
920         fi
921 PGF90-S-0155-Intrinsic not supported in initialization: atan (gen_be_stage2_gsi.f: 14)
922   0 inform,   2 warnings,   1 severes, 0 fatal for gen_be_stage2_gsi

Here is the code
Code:

  14    real, parameter      :: deg2rad=atan(1.)/45.,rad2deg=1.0/deg2rad
Back to top
View user's profile
mkcolg



Joined: 30 Jun 2004
Posts: 6213
Location: The Portland Group Inc.

PostPosted: Thu Apr 29, 2010 12:48 pm    Post subject: Reply with quote

Hi Jerry,

The use of intrinsics in an initialization expressions in a F2003 feature. While we hope to have F2003 fully supported by the end of the year, allowing the various intrinsics in an initialization expression is being added incrementally. We expect to add 'atan' in the 10.6 (June) release.

In the meantime, you can work around the issue by moving deg2rad's initialization from the declaration statement to the routine's body.

- Mat
Back to top
View user's profile
Jerryleo



Joined: 22 Aug 2005
Posts: 36

PostPosted: Tue May 04, 2010 1:23 pm    Post subject: Reply with quote

Thanks for the kind help

Best Regards
Back to top
View user's profile
Display posts from previous:   
Post new topic   Reply to topic    PGI User Forum Forum Index -> Programming and Compiling All times are GMT - 7 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group