[petsc-dev] PGI errors with Fortran strings

[Satish Balay]

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
> > >
> >
> >
>