July 2020 - petsc-dev - mailman3.cels.anl.gov

Re: [petsc-dev] new Fortran error
by Barry Smith 10 Jul '20

10 Jul '20

The fix for this is to add PetscObjectSetName() to src/sys/f90-mod/petscsys.h90 with the * notation to allow any type. You will see in that file PetscObjectReference() etc. PetsFE is an INTEGER(8) in Fortran because no one has updated it yet to be a Fortran type. You will see in include/petsc/finclude/petscdm.h that only DM has be properly updated to be a Fortran type, a bunch of others are still treated as integers and need to be fixed eventually. #define DM type(tDM) #define DMAdaptor PetscFortranAddr #define PetscQuadrature PetscFortranAddr #define PetscDS PetscFortranAddr #define PetscFE PetscFortranAddr #define PetscSpace PetscFortranAddr #define PetscDualSpace PetscFortranAddr #define PetscFV PetscFortranAddr #define PetscLimiter PetscFortranAddr #define PetscPartitioner PetscFortranAddr #define DMField PetscFortranAddr > On Jul 10, 2020, at 9:57 AM, Mark Adams <mfadams(a)lbl.gov> wrote: > > > I suspect you have upgraded gfortran and now have gfortran version 10, > > 09:35 knepley/feature-swarm-fortran= ~/Codes/petsc$ mpif90 --version > GNU Fortran (Homebrew GCC 10.1.0) 10.1.0 > > which is pickier about argument matching. > > If you add -fallow-argument-mismatch to the fortran flags, do things go away? > > > Well, it turns 6 errors into 2 warnings: > > FC arch-macosx-gnu-g/tests/dm/impls/swarm/tutorials/ex1f90.o > /Users/markadams/Codes/petsc/src/dm/impls/swarm/tutorials/ex1f90.F90:39:30: > > 34 | call PetscObjectSetName(dm, 'Potential Grid', ierr);CHKERRA(ierr) > | 2 > ...... > 39 | call PetscObjectSetName(fe, 'fe', ierr);CHKERRA(ierr) > | 1 > Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(8)/TYPE(tdm)). > FLINKER arch-macosx-gnu-g/tests/dm/impls/swarm/tutorials/ex1f90 > TEST arch-macosx-gnu-g/tests/counts/dm_impls_swarm_tutorials-ex1f90_0.counts > ok dm_impls_swarm_tutorials-ex1f90_0 > ok diff-dm_impls_swarm_tutorials-ex1f90_0 > > Oh well, I guess we need to add this param if we want to set names and take it out of regression tests. > > I wonder why it seems to say a PetsFE is an INTEGER(8) ... > > Thanks, > Mark > > Lawrenmce

1 0

Re: [petsc-dev] REPLACE=1 not working for me
by Scott Kruger 10 Jul '20

10 Jul '20

Looks like a problem in petscdiff between the filter output flag and the move flag. I'll take a look. Scott On 7/10/20 9:15 AM, Mark Adams wrote: > REPLACE=1 is doing something funny: > > 11:12 knepley/feature-swarm-fortran *= ~/Codes/petsc$ make -f gmakefile > test search='dm_impls_swarm_tutorials-ex1f90_0' REPLACE=1 > Using MAKEFLAGS: REPLACE=1 search=dm_impls_swarm_tutorials-ex1f90_0 > TEST > arch-macosx-gnu-g/tests/counts/dm_impls_swarm_tutorials-ex1f90_0.counts > ok dm_impls_swarm_tutorials-ex1f90_0 > not ok diff-dm_impls_swarm_tutorials-ex1f90_0 # Error code: 1 > # 1c1 > # < DM Object: Potential Grid 1 MPI processes > # --- > # > DM Object: 1 MPI processes > # 3d2 > # < Potential Grid in 2 dimensions: > # 12c11 > # < DM Object: Particle Grid 1 MPI processes > # --- > # > DM Object: 1 MPI processes > *# mv'ing ex1f90_0.tmp.filter_tmp --> > /Users/markadams/Codes/petsc/src/dm/impls/swarm/tutorials/output/ex1f90_0.out.filter_tmp > * > # ------------- > # Summary > # ------------- > # FAILED diff-dm_impls_swarm_tutorials-ex1f90_0 > # success 1/2 tests (50.0%) > # failed 1/2 tests (50.0%) > # todo 0/2 tests (0.0%) > # skip 0/2 tests (0.0%) > # > # Wall clock time for tests: 1 sec > # Approximate CPU time (not incl. build time): 0.92 sec > # > # To rerun failed tests: > # /usr/bin/make -f gmakefile test test-fail=1 > # > # Timing summary (actual test time / total CPU time): > # dm_impls_swarm_tutorials-ex1f90_0: 0.68 sec / 0.92 sec > 11:12 knepley/feature-swarm-fortran *= ~/Codes/petsc$ ll > /Users/markadams/Codes/petsc/src/dm/impls/swarm/tutorials/output/ > total 16 > *-rw-r--r-- 1 markadams staff 2208 Jul 10 08:42 ex1_0.out > -rw-r--r-- 1 markadams staff 1612 Jul 10 08:42 ex1f90_0.out > -rw-r--r-- 1 markadams staff 0 Jun 23 14:06 ex2_0.out* -- Tech-X Corporation kruger(a)txcorp.com 5621 Arapahoe Ave, Suite A Phone: (720) 974-1841 Boulder, CO 80303 Fax: (303) 448-7756

1 0

REPLACE=1 not working for me
by Mark Adams 10 Jul '20

10 Jul '20

REPLACE=1 is doing something funny: 11:12 knepley/feature-swarm-fortran *= ~/Codes/petsc$ make -f gmakefile test search='dm_impls_swarm_tutorials-ex1f90_0' REPLACE=1 Using MAKEFLAGS: REPLACE=1 search=dm_impls_swarm_tutorials-ex1f90_0 TEST arch-macosx-gnu-g/tests/counts/dm_impls_swarm_tutorials-ex1f90_0.counts ok dm_impls_swarm_tutorials-ex1f90_0 not ok diff-dm_impls_swarm_tutorials-ex1f90_0 # Error code: 1 # 1c1 # < DM Object: Potential Grid 1 MPI processes # --- # > DM Object: 1 MPI processes # 3d2 # < Potential Grid in 2 dimensions: # 12c11 # < DM Object: Particle Grid 1 MPI processes # --- # > DM Object: 1 MPI processes *# mv'ing ex1f90_0.tmp.filter_tmp --> /Users/markadams/Codes/petsc/src/dm/impls/swarm/tutorials/output/ex1f90_0.out.filter_tmp* # ------------- # Summary # ------------- # FAILED diff-dm_impls_swarm_tutorials-ex1f90_0 # success 1/2 tests (50.0%) # failed 1/2 tests (50.0%) # todo 0/2 tests (0.0%) # skip 0/2 tests (0.0%) # # Wall clock time for tests: 1 sec # Approximate CPU time (not incl. build time): 0.92 sec # # To rerun failed tests: # /usr/bin/make -f gmakefile test test-fail=1 # # Timing summary (actual test time / total CPU time): # dm_impls_swarm_tutorials-ex1f90_0: 0.68 sec / 0.92 sec 11:12 knepley/feature-swarm-fortran *= ~/Codes/petsc$ ll /Users/markadams/Codes/petsc/src/dm/impls/swarm/tutorials/output/ total 16 *-rw-r--r-- 1 markadams staff 2208 Jul 10 08:42 ex1_0.out-rw-r--r-- 1 markadams staff 1612 Jul 10 08:42 ex1f90_0.out-rw-r--r-- 1 markadams staff 0 Jun 23 14:06 ex2_0.out*

1 0

Re: [petsc-dev] new Fortran error
by Mark Adams 10 Jul '20

10 Jul '20

> > > I suspect you have upgraded gfortran and now have gfortran version 10, 09:35 knepley/feature-swarm-fortran= ~/Codes/petsc$ mpif90 --version GNU Fortran (Homebrew GCC 10.1.0) 10.1.0 > which is pickier about argument matching. > > If you add -fallow-argument-mismatch to the fortran flags, do things go > away? > > Well, it turns 6 errors into 2 warnings: FC arch-macosx-gnu-g/tests/dm/impls/swarm/tutorials/ex1f90.o /Users/markadams/Codes/petsc/src/dm/impls/swarm/tutorials/ex1f90.F90:39:30: 34 | call PetscObjectSetName(dm, 'Potential Grid', ierr);CHKERRA(ierr) | 2 ...... 39 | call PetscObjectSetName(fe, 'fe', ierr);CHKERRA(ierr) | 1 Warning: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(8)/TYPE(tdm)). FLINKER arch-macosx-gnu-g/tests/dm/impls/swarm/tutorials/ex1f90 TEST arch-macosx-gnu-g/tests/counts/dm_impls_swarm_tutorials-ex1f90_0.counts ok dm_impls_swarm_tutorials-ex1f90_0 ok diff-dm_impls_swarm_tutorials-ex1f90_0 Oh well, I guess we need to add this param if we want to set names and take it out of regression tests. I wonder why it seems to say a PetsFE is an INTEGER(8) ... Thanks, Mark > Lawrenmce

1 0

Re: [petsc-dev] new Fortran error
by Lawrence Mitchell 10 Jul '20

10 Jul '20

> On 10 Jul 2020, at 13:53, Mark Adams <mfadams(a)lbl.gov> wrote: > > I just started getting this error and I have no idea what it from. Any ideas? > > 08:52 knepley/feature-swarm-fortran= ~/Codes/petsc$ make -f gmakefile test search='dm_impls_swarm_tutorials-ex1f90_0' > Using MAKEFLAGS: search=dm_impls_swarm_tutorials-ex1f90_0 > FC arch-macosx-gnu-g/tests/dm/impls/swarm/tutorials/ex1f90.o > /Users/markadams/Codes/petsc/src/dm/impls/swarm/tutorials/ex1f90.F90:39:30: > > 34 | call PetscObjectSetName(dm, 'Potential Grid', ierr);CHKERRA(ierr) > | 2 > ...... > 39 | call PetscObjectSetName(fe, 'fe', ierr);CHKERRA(ierr) > | 1 > Error: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(8)/TYPE(tdm)). > /Users/markadams/Codes/petsc/src/dm/impls/swarm/tutorials/ex1f90.F90:71:30: > > 34 | call PetscObjectSetName(dm, 'Potential Grid', ierr);CHKERRA(ierr) > | 2 > ...... > 71 | call PetscObjectSetName(rho, 'rho', ierr);CHKERRA(ierr) > | 1 > Error: Type mismatch between actual argument at (1) and actual argument at (2) (TYPE(tvec)/TYPE(tdm)). > /Users/markadams/Codes/petsc/src/dm/impls/swarm/tutorials/ex1f90.F90:73:30: > > 34 | call PetscObjectSetName(dm, 'Potential Grid', ierr);CHKERRA(ierr) > | 2 > ...... > 73 | call PetscObjectSetName(f, 'weights', ierr);CHKERRA(ierr) > | 1 I suspect you have upgraded gfortran and now have gfortran version 10, which is pickier about argument matching. If you add -fallow-argument-mismatch to the fortran flags, do things go away? Lawrenmce

1 0

new Fortran error
by Mark Adams 10 Jul '20

10 Jul '20

I just started getting this error and I have no idea what it from. Any ideas? 08:52 knepley/feature-swarm-fortran= ~/Codes/petsc$ make -f gmakefile test search='dm_impls_swarm_tutorials-ex1f90_0' Using MAKEFLAGS: search=dm_impls_swarm_tutorials-ex1f90_0 FC arch-macosx-gnu-g/tests/dm/impls/swarm/tutorials/ex1f90.o /Users/markadams/Codes/petsc/src/dm/impls/swarm/tutorials/ex1f90.F90:39:30: 34 | call PetscObjectSetName(dm, 'Potential Grid', ierr);CHKERRA(ierr) | 2 ...... 39 | call PetscObjectSetName(fe, 'fe', ierr);CHKERRA(ierr) | 1 Error: Type mismatch between actual argument at (1) and actual argument at (2) (INTEGER(8)/TYPE(tdm)). /Users/markadams/Codes/petsc/src/dm/impls/swarm/tutorials/ex1f90.F90:71:30: 34 | call PetscObjectSetName(dm, 'Potential Grid', ierr);CHKERRA(ierr) | 2 ...... 71 | call PetscObjectSetName(rho, 'rho', ierr);CHKERRA(ierr) | 1 Error: Type mismatch between actual argument at (1) and actual argument at (2) (TYPE(tvec)/TYPE(tdm)). /Users/markadams/Codes/petsc/src/dm/impls/swarm/tutorials/ex1f90.F90:73:30: 34 | call PetscObjectSetName(dm, 'Potential Grid', ierr);CHKERRA(ierr) | 2 ...... 73 | call PetscObjectSetName(f, 'weights', ierr);CHKERRA(ierr) | 1 Error: Type mismatch between actual argument at (1) and actual argument at (2) (TYPE(tvec)/TYPE(tdm)). make: *** [arch-macosx-gnu-g/tests/dm/impls/swarm/tutorials/ex1f90.o] Error 1

1 0

Re: [petsc-dev] Sphinx error
by Lisandro Dalcin 09 Jul '20

09 Jul '20

On Tue, 7 Jul 2020 at 15:18, Barry Smith <bsmith(a)petsc.dev> wrote: > "Any Python package that you install with brew will install the Homebrew > Python build." > > Sure in general with python on Apple, but you ignored my statement: > > $ which sphinx-build > /usr/local/opt/sphinx-doc/bin/sphinx-build > ~/Src/petsc/src/ksp/ksp/interface* (master=)* arch-master > $ more /usr/local/opt/sphinx-doc/bin/sphinx-build > #!/usr/local/Cellar/sphinx-doc/3.0.4/libexec/bin/python3.8 > # -*- coding: utf-8 -*- > import re > import sys > from sphinx.cmd.build import main > > sphinx seems to be carrying around its own python internally, thus quite > rightly getting Jed upset about packaging on Apple of open source > software. Or perhaps I misunderstand that line. > > Oh, sorry, now I understand what you mean! You are right, but anyway you still have a bit of mess around: 1) Run `brew info sphinx-doc` and read the "Caveats" section. Long story short, that package is not meant to be used for regular users. Get rid of it with `brew uninstall sphinx-doc`. Open a new terminal and make sure you don't have /usr/local/opt/sphinx-doc/bin from $PATH. 2) Install Homebrew Python with `brew install python` (or maybe python3, do not remember right now, but "python" should be enough). Or try `brew upgrade python` if you are in py3.7, this way you should get py3.8. Consider symlinking python3 -> python in /usr/local/bin (or maybe ~/bin, if you prefer). Otherwise, if you do not symlink, you will forget and keep using plain "python" in the command line, and that one will be EOLed system Apple Python 2.7. 3) Finally, just use pip to install sphinx `python3 -m pip install sphinx`. Now `which sphinx-build` should point to /usr/local/bin. PS: 99% of Python packages, and particularly the pure-Python ones, can be installed with pip under Homebrew Python. Go this way ASAP and forget about system Apple Python. -- Lisandro Dalcin ============ Research Scientist Extreme Computing Research Center (ECRC) King Abdullah University of Science and Technology (KAUST) http://ecrc.kaust.edu.sa/

1 0

Re: [petsc-dev] PGI errors with Fortran strings
by Mark Adams 07 Jul '20

07 Jul '20

Thanks, that seemed to work. On Tue, Jul 7, 2020 at 12:01 PM Satish Balay <balay(a)mcs.anl.gov> wrote: > Sorry should have said: > > > PETSC_EXTERN void dmswarmgetfield_(DM *dm, char *name, PetscInt > *blocksize, PetscDataType *type, F90Array1d *ptr, int *ierr > PETSC_F90_2PTR_PROTO(ptrd), PETSC_FORTRAN_CHARLEN_T lenN) > > Satish > > > On Tue, 7 Jul 2020, Mark Adams wrote: > > > Thanks, I got this error: > > > > PETSC_EXTERN void dmswarmgetfield_(DM *dm, char *name, PetscInt > *blocksize, > > PetscDataType *type, F90Array1d *ptr, int *ierr lenN > > PETSC_F90_2PTR_PROTO(ptrd), PETSC_FORTRAN_CHARLEN_T) > > { > > PetscScalar *v; > > PetscInt n; > > char *fieldname; > > > > FIXCHAR(name, lenN, fieldname); > > *ierr = DMSwarmGetSize(*dm, &n);if (*ierr) return; > > *ierr = DMSwarmGetField(*dm, fieldname, blocksize, type, (void **) > &v);if > > (*ierr) return; > > *ierr = F90Array1dCreate((void*) v, MPIU_SCALAR, 1, n, ptr > > PETSC_F90_2PTR_PARAM(ptrd)); > > FREECHAR(name, fieldname); > > } > > > > PGC-S-0037-Syntax error: Recovery attempted by deleting identifier ierr > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 15) > > PGC-S-0138-Missing identifier for declarator in function prototype > > definition > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 16) > > PGC-W-0046-Non-integral array subscript is cast to int > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 21) > > PGC-W-0095-Type cast required for this conversion > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 21) > > PGC-S-0039-Use of undeclared variable ierr > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 21) > > PGC-S-0055-Illegal operand of indirection operator (*) > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 21) > > PGC-S-0055-Illegal operand of indirection operator (*) > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 21) > > PGC-S-0055-Illegal operand of indirection operator (*) > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 21) > > PGC-W-0095-Type cast required for this conversion > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 21) > > PGC-S-0055-Illegal operand of indirection operator (*) > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 21) > > PGC-S-0055-Illegal operand of indirection operator (*) > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 22) > > PGC-S-0055-Illegal operand of indirection operator (*) > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 22) > > PGC-S-0055-Illegal operand of indirection operator (*) > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 23) > > PGC-S-0055-Illegal operand of indirection operator (*) > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 23) > > PGC-S-0055-Illegal operand of indirection operator (*) > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 24) > > PGC-S-0055-Illegal operand of indirection operator (*) > > > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > > 25) > > PGC/power Linux 19.9-0: compilation completed with severe errors > > gmake[3]: *** > > [arch-summit-dbg64-pgi-cuda/obj/dm/impls/swarm/f90-custom/zswarmf90.o] > > Error 2 > > gmake[3]: *** Waiting for unfinished jobs.... > > gmake[2]: *** [libs] Error 2 > > > > I can remove PGI from this test if need be, > > Thanks, > > > > On Tue, Jul 7, 2020 at 9:56 AM Satish Balay <balay(a)mcs.anl.gov> wrote: > > > > > > PETSC_EXTERN void dmswarmgetfield_(DM *dm, char *name, PetscInt > > > *blocksize, PetscDataType *type, F90Array1d *ptr, int *ierr, > > > PETSC_FORTRAN_CHARLEN_T lenN PETSC_F90_2PTR_PROTO(ptrd)) > > > > > > I don't see an example [in current code] for using both char and > F90Array > > > with the same function. So its not clear to me if the above is correct > or > > > if it should be: > > > > > > PETSC_EXTERN void dmswarmgetfield_(DM *dm, char *name, PetscInt > > > *blocksize, PetscDataType *type, F90Array1d *ptr, int *ierr lenN > > > PETSC_F90_2PTR_PROTO(ptrd), PETSC_FORTRAN_CHARLEN_T) > > > > > > And to disable: > > > > > > src/ksp/ksp/tutorials/ex54f.F90:! requires: !pgf90_compiler > > > src/snes/tests/ex18f90.F90:! requires: !pgf90_compiler > > > > > > Satish > > > > > > On Tue, 7 Jul 2020, Mark Adams wrote: > > > > > > > DMSwarm has custom fortran wrappers in ftn-custom and f90-custom. I > am > > > > finding that the f90 one has junk in the string length with PGI > compilers > > > > (see attached). The ones in ftn-custom seem to work. > > > > > > > > Any ideas? > > > > > > > > Also, how can I disable a test for PGI? > > > > > > > > Thanks, > > > > Mark > > > > > > > > > > > > > >

1 0

Re: [petsc-dev] PGI errors with Fortran strings
by Satish Balay 07 Jul '20

07 Jul '20

Sorry should have said: PETSC_EXTERN void dmswarmgetfield_(DM *dm, char *name, PetscInt *blocksize, PetscDataType *type, F90Array1d *ptr, int *ierr PETSC_F90_2PTR_PROTO(ptrd), PETSC_FORTRAN_CHARLEN_T lenN) Satish On Tue, 7 Jul 2020, Mark Adams wrote: > Thanks, I got this error: > > PETSC_EXTERN void dmswarmgetfield_(DM *dm, char *name, PetscInt *blocksize, > PetscDataType *type, F90Array1d *ptr, int *ierr lenN > PETSC_F90_2PTR_PROTO(ptrd), PETSC_FORTRAN_CHARLEN_T) > { > PetscScalar *v; > PetscInt n; > char *fieldname; > > FIXCHAR(name, lenN, fieldname); > *ierr = DMSwarmGetSize(*dm, &n);if (*ierr) return; > *ierr = DMSwarmGetField(*dm, fieldname, blocksize, type, (void **) &v);if > (*ierr) return; > *ierr = F90Array1dCreate((void*) v, MPIU_SCALAR, 1, n, ptr > PETSC_F90_2PTR_PARAM(ptrd)); > FREECHAR(name, fieldname); > } > > PGC-S-0037-Syntax error: Recovery attempted by deleting identifier ierr > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 15) > PGC-S-0138-Missing identifier for declarator in function prototype > definition > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 16) > PGC-W-0046-Non-integral array subscript is cast to int > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 21) > PGC-W-0095-Type cast required for this conversion > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 21) > PGC-S-0039-Use of undeclared variable ierr > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 21) > PGC-S-0055-Illegal operand of indirection operator (*) > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 21) > PGC-S-0055-Illegal operand of indirection operator (*) > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 21) > PGC-S-0055-Illegal operand of indirection operator (*) > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 21) > PGC-W-0095-Type cast required for this conversion > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 21) > PGC-S-0055-Illegal operand of indirection operator (*) > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 21) > PGC-S-0055-Illegal operand of indirection operator (*) > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 22) > PGC-S-0055-Illegal operand of indirection operator (*) > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 22) > PGC-S-0055-Illegal operand of indirection operator (*) > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 23) > PGC-S-0055-Illegal operand of indirection operator (*) > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 23) > PGC-S-0055-Illegal operand of indirection operator (*) > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 24) > PGC-S-0055-Illegal operand of indirection operator (*) > (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: > 25) > PGC/power Linux 19.9-0: compilation completed with severe errors > gmake[3]: *** > [arch-summit-dbg64-pgi-cuda/obj/dm/impls/swarm/f90-custom/zswarmf90.o] > Error 2 > gmake[3]: *** Waiting for unfinished jobs.... > gmake[2]: *** [libs] Error 2 > > I can remove PGI from this test if need be, > Thanks, > > On Tue, Jul 7, 2020 at 9:56 AM Satish Balay <balay(a)mcs.anl.gov> wrote: > > > > PETSC_EXTERN void dmswarmgetfield_(DM *dm, char *name, PetscInt > > *blocksize, PetscDataType *type, F90Array1d *ptr, int *ierr, > > PETSC_FORTRAN_CHARLEN_T lenN PETSC_F90_2PTR_PROTO(ptrd)) > > > > I don't see an example [in current code] for using both char and F90Array > > with the same function. So its not clear to me if the above is correct or > > if it should be: > > > > PETSC_EXTERN void dmswarmgetfield_(DM *dm, char *name, PetscInt > > *blocksize, PetscDataType *type, F90Array1d *ptr, int *ierr lenN > > PETSC_F90_2PTR_PROTO(ptrd), PETSC_FORTRAN_CHARLEN_T) > > > > And to disable: > > > > src/ksp/ksp/tutorials/ex54f.F90:! requires: !pgf90_compiler > > src/snes/tests/ex18f90.F90:! requires: !pgf90_compiler > > > > Satish > > > > On Tue, 7 Jul 2020, Mark Adams wrote: > > > > > DMSwarm has custom fortran wrappers in ftn-custom and f90-custom. I am > > > finding that the f90 one has junk in the string length with PGI compilers > > > (see attached). The ones in ftn-custom seem to work. > > > > > > Any ideas? > > > > > > Also, how can I disable a test for PGI? > > > > > > Thanks, > > > Mark > > > > > > > >

1 0

Re: [petsc-dev] PGI errors with Fortran strings
by Mark Adams 07 Jul '20

07 Jul '20

Thanks, I got this error: PETSC_EXTERN void dmswarmgetfield_(DM *dm, char *name, PetscInt *blocksize, PetscDataType *type, F90Array1d *ptr, int *ierr lenN PETSC_F90_2PTR_PROTO(ptrd), PETSC_FORTRAN_CHARLEN_T) { PetscScalar *v; PetscInt n; char *fieldname; FIXCHAR(name, lenN, fieldname); *ierr = DMSwarmGetSize(*dm, &n);if (*ierr) return; *ierr = DMSwarmGetField(*dm, fieldname, blocksize, type, (void **) &v);if (*ierr) return; *ierr = F90Array1dCreate((void*) v, MPIU_SCALAR, 1, n, ptr PETSC_F90_2PTR_PARAM(ptrd)); FREECHAR(name, fieldname); } PGC-S-0037-Syntax error: Recovery attempted by deleting identifier ierr (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 15) PGC-S-0138-Missing identifier for declarator in function prototype definition (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 16) PGC-W-0046-Non-integral array subscript is cast to int (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 21) PGC-W-0095-Type cast required for this conversion (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 21) PGC-S-0039-Use of undeclared variable ierr (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 21) PGC-S-0055-Illegal operand of indirection operator (*) (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 21) PGC-S-0055-Illegal operand of indirection operator (*) (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 21) PGC-S-0055-Illegal operand of indirection operator (*) (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 21) PGC-W-0095-Type cast required for this conversion (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 21) PGC-S-0055-Illegal operand of indirection operator (*) (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 21) PGC-S-0055-Illegal operand of indirection operator (*) (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 22) PGC-S-0055-Illegal operand of indirection operator (*) (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 22) PGC-S-0055-Illegal operand of indirection operator (*) (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 23) PGC-S-0055-Illegal operand of indirection operator (*) (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 23) PGC-S-0055-Illegal operand of indirection operator (*) (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 24) PGC-S-0055-Illegal operand of indirection operator (*) (/autofs/nccs-svm1_home1/adams/petsc/src/dm/impls/swarm/f90-custom/zswarmf90.c: 25) PGC/power Linux 19.9-0: compilation completed with severe errors gmake[3]: *** [arch-summit-dbg64-pgi-cuda/obj/dm/impls/swarm/f90-custom/zswarmf90.o] Error 2 gmake[3]: *** Waiting for unfinished jobs.... gmake[2]: *** [libs] Error 2 I can remove PGI from this test if need be, Thanks, On Tue, Jul 7, 2020 at 9:56 AM Satish Balay <balay(a)mcs.anl.gov> wrote: > > PETSC_EXTERN void dmswarmgetfield_(DM *dm, char *name, PetscInt > *blocksize, PetscDataType *type, F90Array1d *ptr, int *ierr, > PETSC_FORTRAN_CHARLEN_T lenN PETSC_F90_2PTR_PROTO(ptrd)) > > I don't see an example [in current code] for using both char and F90Array > with the same function. So its not clear to me if the above is correct or > if it should be: > > PETSC_EXTERN void dmswarmgetfield_(DM *dm, char *name, PetscInt > *blocksize, PetscDataType *type, F90Array1d *ptr, int *ierr lenN > PETSC_F90_2PTR_PROTO(ptrd), PETSC_FORTRAN_CHARLEN_T) > > And to disable: > > src/ksp/ksp/tutorials/ex54f.F90:! requires: !pgf90_compiler > src/snes/tests/ex18f90.F90:! requires: !pgf90_compiler > > Satish > > On Tue, 7 Jul 2020, Mark Adams wrote: > > > DMSwarm has custom fortran wrappers in ftn-custom and f90-custom. I am > > finding that the f90 one has junk in the string length with PGI compilers > > (see attached). The ones in ftn-custom seem to work. > > > > Any ideas? > > > > Also, how can I disable a test for PGI? > > > > Thanks, > > Mark > > > >

1 0