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

[Satish Balay]

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.

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