[petsc-dev] PGI errors with Fortran strings

[Mark Adams]

Thanks, that seemed to work.

On Tue, Jul 7, 2020 at 12:01 PM Satish Balay <balay at 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 at 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
> > > >
> > >
> > >
> >
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.mcs.anl.gov/pipermail/petsc-dev/attachments/20200707/c23ae210/attachment.html>