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 <[email protected]> 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