[petsc-dev] F90 code with PGI (Titan)

[Mark Adams]

On Fri, Jun 29, 2018 at 3:28 PM Smith, Barry F. <bsmith at mcs.anl.gov> wrote:

>
>
> > On Jun 29, 2018, at 1:10 PM, Satish Balay <balay at mcs.anl.gov> wrote:
> >
> >
> https://bitbucket.org/petsc/petsc/commits/16d0e248c69a6e6dc72c61578459093d2bc6666b#Lsrc/snes/examples/tutorials/ex73f90t.F90T744
> >
> > -!      requires: !single
> > +!      requires: !single !libpgf90
> >
> > This example is marked as incompatible with pgf90.
>
>   True, but it does not explain all the warning/error messages below.
> Something is definitely funky about this version of the PGI fortran
> compiler.
>

Well, I'm not sure what happened but these errors went away. The compiler
fails on a huge execution test line comment at the end but I removed that
and it builds.


>
>    Barry
>
> >
> > However - if one invokes 'make ex73f90t' - this check is not enforced.
> >
> > Satish
> >
> >
> > On Fri, 29 Jun 2018, Mark Adams wrote:
> >
> >> We are having problems compiling with PGI on Titan (pgf90 18.4-0 64-bit
> >> target on x86-64 Linux -tp bulldozer-64). Any idea what is wrong here?
> >>
> >> Thanks,
> >>
> >> adams at titan-ext5:~/petsc/src/snes/examples/tutorials> make ex73f90t
> >> ftn -c -fast  -mp   -I/autofs/nccs-svm1_home1/adams/petsc/include
> >> -I/autofs/nccs-svm1_home1/adams/petsc/arch-titan-opt64-pgi/include
> >> -I/ccs/proj/env003/petscv3.9-opt64-pgi/include    -o ex73f90t.o
> ex73f90t.F90
> >> PGF90-S-0155-Could not resolve generic procedure dmdacreate2d
> >> (ex73f90t.F90: 155)
> >> PGF90-S-0450-Argument number 3 to vecsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 179)
> >> PGF90-S-0450-Argument number 4 to matsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 186)
> >> PGF90-S-0450-Argument number 5 to matsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 186)
> >> PGF90-S-0450-Argument number 4 to matsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 190)
> >> PGF90-S-0450-Argument number 5 to matsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 190)
> >> PGF90-S-0450-Argument number 2 to vecsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 201)
> >> PGF90-S-0450-Argument number 3 to vecsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 201)
> >> PGF90-S-0450-Argument number 4 to matsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 209)
> >> PGF90-S-0450-Argument number 5 to matsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 209)
> >> PGF90-S-0450-Argument number 4 to matsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 213)
> >> PGF90-S-0450-Argument number 5 to matsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 213)
> >> PGF90-S-0450-Argument number 4 to matsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 217)
> >> PGF90-S-0450-Argument number 5 to matsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 217)
> >> PGF90-S-0450-Argument number 3 to vecsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 221)
> >> PGF90-S-0155-Could not resolve generic procedure matsetvalues
> >> (ex73f90t.F90: 243)
> >> PGF90-S-0155-Could not resolve generic procedure matsetvalues
> >> (ex73f90t.F90: 246)
> >> PGF90-S-0155-Could not resolve generic procedure matsetvalues
> >> (ex73f90t.F90: 260)
> >> PGF90-S-0450-Argument number 2 to vecsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 273)
> >> PGF90-S-0450-Argument number 3 to vecsetsizes: kind mismatch
> (ex73f90t.F90:
> >> 273)
> >> PGF90-S-0450-Argument number 2 to snesgetiterationnumber: kind mismatch
> >> (ex73f90t.F90: 340)
> >>  0 inform,   0 warnings,  21 severes, 0 fatal for main
> >> PGF90-S-0155-Could not resolve generic procedure vecsetvalues
> >> (ex73f90t.F90: 473)
> >>  0 inform,   0 warnings,   1 severes, 0 fatal for initialguesslocal
> >> PGF90-S-0155-Could not resolve generic procedure matsetvalues
> >> (ex73f90t.F90: 596)
> >> PGF90-S-0155-Could not resolve generic procedure matsetvalues
> >> (ex73f90t.F90: 615)
> >>  0 inform,   0 warnings,   2 severes, 0 fatal for formjacobianlocal
> >> PGF90-S-0285-Source line too long (ex73f90t.F90: 747)
> >>  0 inform,   0 warnings,   1 severes, 0 fatal for formfunctionnlterm
> >> make: [ex73f90t.o] Error 2 (ignored)
> >> ftn -fast  -mp  -o ex73f90t ex73f90t.o
> >> -L/autofs/nccs-svm1_home1/adams/petsc/arch-titan-opt64-pgi/lib
> >> -Wl,-rpath,/ccs/proj/env003/petscv3.9-opt64-pgi/lib
> >> -L/ccs/proj/env003/petscv3.9-opt64-pgi/lib -lpetsc -lHYPRE -lflapack
> >> -lfblas -lparmetis -lmetis -lstdc++ -ldl
> >> /usr/bin/ld: cannot find ex73f90t.o: No such file or directory
> >> /usr/bin/sha1sum: ex73f90t: No such file or directory
> >> make: [ex73f90t] Error 2 (ignored)
> >> /bin/rm -f ex73f90t.o
> >> adams at titan-ext5:~/petsc/src/snes/examples/tutorials> ftn -V
> >>
> >> pgf90 18.4-0 64-bit target on x86-64 Linux -tp bulldozer-64
> >> PGI Compilers and Tools
> >> Copyright (c) 2018, NVIDIA CORPORATION.  All rights reserved.
> >> adams at titan-ext5:~/petsc/src/snes/examples/tutorials>
> >>
> >
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.mcs.anl.gov/pipermail/petsc-dev/attachments/20180630/a03e6e44/attachment.html>