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

[Smith, Barry F.]

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

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