[petsc-dev] new Fortran error

[Satish Balay]

This branch is merged to master. So the issue is with master? Or is this issue with your local modifications to this test example?

I can't reproduce with gfortran-10

Satish

-------
balay at sb /home/balay/petsc/src/dm/impls/swarm/tutorials (master=)
$ gfortran --version
GNU Fortran (GCC) 10.1.1 20200507 (Red Hat 10.1.1-1)
Copyright (C) 2020 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

balay at sb /home/balay/petsc/src/dm/impls/swarm/tutorials (master=)
$ make ex1f90
mpif90 -Wall -ffree-line-length-0 -Wno-unused-dummy-argument -g   -I/home/balay/petsc/include -I/home/balay/petsc/arch-linux-c-debug/include      ex1f90.F90  -Wl,-rpath,/home/balay/petsc/arch-linux-c-debug/lib -L/home/balay/petsc/arch-linux-c-debug/lib -Wl,-rpath,/home/balay/soft/mpich-3.3.2/lib -L/home/balay/soft/mpich-3.3.2/lib -Wl,-rpath,/usr/lib/gcc/x86_64-redhat-linux/10 -L/usr/lib/gcc/x86_64-redhat-linux/10 -lpetsc -llapack -lblas -lpthread -lX11 -lm -lstdc++ -ldl -lmpifort -lmpi -lgfortran -lm -lgfortran -lm -lgcc_s -lquadmath -lstdc++ -ldl -o ex1f90
balay at sb /home/balay/petsc/src/dm/impls/swarm/tutorials (master=)
$ 



On Fri, 10 Jul 2020, Mark Adams wrote:

> I just started getting this error and I have no idea what it from. Any
> ideas?
> 
> 08:52 knepley/feature-swarm-fortran= ~/Codes/petsc$ make -f gmakefile test
> search='dm_impls_swarm_tutorials-ex1f90_0'
> Using MAKEFLAGS: search=dm_impls_swarm_tutorials-ex1f90_0
>           FC arch-macosx-gnu-g/tests/dm/impls/swarm/tutorials/ex1f90.o
> /Users/markadams/Codes/petsc/src/dm/impls/swarm/tutorials/ex1f90.F90:39:30:
> 
>    34 |       call PetscObjectSetName(dm, 'Potential Grid',
> ierr);CHKERRA(ierr)
>       |                              2
> ......
>    39 |       call PetscObjectSetName(fe, 'fe', ierr);CHKERRA(ierr)
>       |                              1
> Error: Type mismatch between actual argument at (1) and actual argument at
> (2) (INTEGER(8)/TYPE(tdm)).
> /Users/markadams/Codes/petsc/src/dm/impls/swarm/tutorials/ex1f90.F90:71:30:
> 
>    34 |       call PetscObjectSetName(dm, 'Potential Grid',
> ierr);CHKERRA(ierr)
>       |                              2
> ......
>    71 |       call PetscObjectSetName(rho, 'rho', ierr);CHKERRA(ierr)
>       |                              1
> Error: Type mismatch between actual argument at (1) and actual argument at
> (2) (TYPE(tvec)/TYPE(tdm)).
> /Users/markadams/Codes/petsc/src/dm/impls/swarm/tutorials/ex1f90.F90:73:30:
> 
>    34 |       call PetscObjectSetName(dm, 'Potential Grid',
> ierr);CHKERRA(ierr)
>       |                              2
> ......
>    73 |       call PetscObjectSetName(f, 'weights', ierr);CHKERRA(ierr)
>       |                              1
> Error: Type mismatch between actual argument at (1) and actual argument at
> (2) (TYPE(tvec)/TYPE(tdm)).
> make: *** [arch-macosx-gnu-g/tests/dm/impls/swarm/tutorials/ex1f90.o] Error
> 1
>