[ET Trac] [Einstein Toolkit] #388: handling of OMP continuation lines in f_file_processor.pl
Einstein Toolkit
trac-noreply at einsteintoolkit.org
Tue Apr 5 15:32:15 CDT 2011
#388: handling of OMP continuation lines in f_file_processor.pl
---------------------+------------------------------------------------------
Reporter: rhaas | Owner: rhaas
Type: defect | Status: review
Priority: minor | Milestone:
Component: Cactus | Version:
Resolution: | Keywords:
---------------------+------------------------------------------------------
Comment (by rhaas):
Replying to [comment:4 hinder]:
> I can test it on Kraken. Is there a testsuite that should be run, or
some other parameter file?
Greatly appreciated.
There is no real testsuite since it only modifies a Cactus internal file
used to produce the Fortran source that the compiler sees (the .f90 files
in build/ThornName). However any of the GRHydro tests would likely do. In
particular GRHydro/test/test/GRHydro_test_tov_ppm_ML.par with the
following changes to GRHydrdo_Con2Prim.F90 (to actually trigger any non-
trivial changes). I had tested that it compiles (and runs) with
LoopControl for Fortran (which generates long OMP lines).
{{{
Index: src/GRHydro_Con2Prim.F90
===================================================================
--- src/GRHydro_Con2Prim.F90 (revision 226)
+++ src/GRHydro_Con2Prim.F90 (working copy)
@@ -1154,7 +1154,7 @@
!!$ do j = GRHydro_stencil + 1, ny - GRHydro_stencil
!!$ do i = GRHydro_stencil + 1, nx - GRHydro_stencil
!$OMP PARALLEL DO PRIVATE(i,j,itracer,&
- !$OMP uxx, uxy, uxz, uyy, uyz, uzz, det)
+ !$OMP uxx, uxy, uxz,
uyy, uyz, uzz, det)
do k = 1, nz
do j = 1, ny
do i = 1, nx
}}}
--
Ticket URL: <https://trac.einsteintoolkit.org/ticket/388#comment:5>
Einstein Toolkit <http://einsteintoolkit.org>
The Einstein Toolkit
More information about the Trac
mailing list