PGI User Forum
 SearchSearch   MemberlistMemberlist     RegisterRegister   ProfileProfile    Log inLog in 

Free OpenACC Webinar

pgf90io_fmtw_init and function inlining
Goto page Previous  1, 2, 3  Next
 
Post new topic   Reply to topic    PGI User Forum Forum Index -> Accelerator Programming
View previous topic :: View next topic  
Author Message
chris.sl.lim



Joined: 11 Jan 2013
Posts: 15

PostPosted: Mon Apr 15, 2013 9:53 am    Post subject: Reply with quote

Hi Mat,

Thanks for your prompt reply. Am I using the #ifdef statement correctly in Fortran?

#ifdef _OPENACC
WRITE(*,*) blah blah
#endif

I'm getting the following compiler errors:

Code:

PGF90-W-0025-Illegal character (#) - ignored (tblock-07.5.f90: 13623)
PGF90-S-0034-Syntax error at or near identifier def (tblock-07.5.f90: 13623)
PGF90-S-0034-Syntax error at or near integer constant 14 (tblock-07.5.f90: 13636)


There are no differences between the sumflux calls, apart from the different arrays that are passed as parameters (all are the same size)

Code:

      IF (IF_UNST(NBLCK).NE.1) CALL SUMFLUX(NBLCK,RO,DELRO)
      IF (IF_UNST(NBLCK).NE.1) CALL SUMFLUX(NBLCK,ROE,DELROE)
      IF (IF_UNST(NBLCK).NE.1) CALL SUMFLUX(NBLCK,ROVX,DELROVX)
      IF (IF_UNST(NBLCK).NE.1) CALL SUMFLUX(NBLCK,RORVT,DELRORVT)
      IF (IF_UNST(NBLCK).NE.1) CALL SUMFLUX(NBLCK,ROVR,DELROVR)


Chris
Back to top
View user's profile
mkcolg



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

PostPosted: Mon Apr 15, 2013 10:00 am    Post subject: Reply with quote

Hi Chris,

Quote:
Am I using the #ifdef statement correctly in Fortran?
Yes, but you need to compile with "-Mpreprocess" or rename your file to use the ".F90" suffix. (files with capitals are automatically pre-processed).

Quote:
There are no differences between the sumflux calls, apart from the different arrays that are passed as parameters (all are the same size)
I'm not sure then. Are there any informational messages from "-Minfo=inline -Mneginfo=inline" that indicate why it's not getting inlined?

- Mat
Back to top
View user's profile
chris.sl.lim



Joined: 11 Jan 2013
Posts: 15

PostPosted: Mon Apr 15, 2013 10:22 am    Post subject: Reply with quote

Compiling with those flags yields no extra information

Code:
  13368, Accelerator region ignored
  13370, Accelerator restriction: function/procedure calls are not supported
  13494, exbconds_gpu inlined, size=586, file tblock-07.5.f90 (14168)
  13500, set_visforce_gpu inlined, size=1334, file tblock-07.5.f90 (14635)
  13502, set_visforce_gpu inlined, size=1334, file tblock-07.5.f90 (14635)
  13696, sumas inlined, size=373, file tblock-07.5.f90 (10251)
  13767, sumflux inlined, size=578, file tblock-07.5.f90 (5221)
  13807, sumflux inlined, size=578, file tblock-07.5.f90 (5221)
  13852, Accelerator restriction: unsupported call to 'sumflux'
  14071, hfromt inlined, size=5, file tblock-07.5.f90 (13223)
  14077, hfromt inlined, size=5, file tblock-07.5.f90 (13223)
  0 inform,   1 warnings,   0 severes, 0 fatal for set_flux_gpu
Back to top
View user's profile
mkcolg



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

PostPosted: Mon Apr 15, 2013 10:49 am    Post subject: Reply with quote

Sorry, I'm not sure then. Can you send a reproducing example to PGI Customer Service (trs@pgroup.com) and ask them to forward it to me?

Thanks,
Mat
Back to top
View user's profile
chris.sl.lim



Joined: 11 Jan 2013
Posts: 15

PostPosted: Mon Apr 15, 2013 10:57 am    Post subject: Reply with quote

Hi Mat,

I've sent the source files and the makefile off to that email. Please let me know if anything in there is unclear (it's very poorly laid out as I've been working on it and learning Fortran at the same time!)

Thanks,

Chris
Back to top
View user's profile
Display posts from previous:   
Post new topic   Reply to topic    PGI User Forum Forum Index -> Accelerator Programming All times are GMT - 7 Hours
Goto page Previous  1, 2, 3  Next
Page 2 of 3

 
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