I would like to compile FEconv with GFortran (MinGW GFortran 7.1.0 64 bits) on Windows.
I encounter compilation errors that prevent me from getting final executable.
When I will succeed in compiling the program, I will propose pull requests to have continuous integration.
C:\MinGW64_710_Posix_SEH\bin\gfortran.exe @CMakeFiles/sermer.dir/includes_Fortran.rsp -Wall -fcheck=all -fbacktrace -fall-intrinsics -funroll-loops -O3 -c D:\GJ\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90 -o CMakeFiles\sermer.dir\D_\GJ\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90.obj
[ 1%] Building Fortran object CMakeFiles/feconv.dir/D_/GIT/ThirdParty/FEconv/source/pmh/module_pmh.f90.obj
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:40:50:
use module_fe_database_pmh, only : FEDB, check_fe, VF_WEDG
1
Error: Symbol 'vf_wedg' referenced at (1) not found in module 'module_fe_database_pmh'
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:496:14:
associate(v_f => FEDB(FEDB(type_by_tdim(max_tdim))%f_type)%lnv) !v_f: vertices per face in the max. tdim element
1
Error: Expected association at (1)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:523:7:
end associate
1
Error: Expecting END DO statement at (1)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:615:39:
elg%type = FEDB(melg%type)%f_type
1
Error: 'f_type' at (1) is not a member of the 'fe_db_pmh' structure
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:626:57:
elg%nn(:, ic) = melg%nn(FEDB(melg%type)%nface(1:FEDB(elg%type)%lnn, j), k)
1
Error: 'nface' at (1) is not a member of the 'fe_db_pmh' structure
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:644:39:
elg%type = FEDB(melg%type)%e_type
1
Error: 'e_type' at (1) is not a member of the 'fe_db_pmh' structure
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:655:57:
elg%nn(:, ic) = melg%nn(FEDB(melg%type)%nedge(1:FEDB(elg%type)%lnn, j), k)
1
Error: 'nedge' at (1) is not a member of the 'fe_db_pmh' structure
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:673:39:
elg%type = FEDB(melg%type)%v_type
1
Error: 'v_type' at (1) is not a member of the 'fe_db_pmh' structure
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:900:102:
znod(j, elg%nn(i,k)) = sum(pc%z(j, elg%mm(FEDB(tp)%face(:,i),k))) / FEDB(FEDB(tp)%f_type)%lnv
1
Error: 'f_type' at (1) is not a member of the 'fe_db_pmh' structure
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:497:28:
call alloc(tmp_vf, v_f+1)
1
Error: Symbol 'v_f' at (1) has no IMPLICIT type
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:1139:15:
tp == check_fe(.false., 3, 2, 1, 0)) cycle !Node, Edge Lagrange P1 or P2, do nothing
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:1138:58:
if (tp == check_fe(.true., 1, 1, 0, 0) .or. tp == check_fe(.true., 2, 2, 1, 0) .or. &
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:1138:15:
if (tp == check_fe(.true., 1, 1, 0, 0) .or. tp == check_fe(.true., 2, 2, 1, 0) .or. &
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:1140:15:
if (tp == check_fe(.true., 3, 3, 3, 0)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:1147:19:
elseif (tp == check_fe(.false., 6, 3, 3, 0)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:1157:19:
elseif (tp == check_fe(.true., 4, 4, 4, 0)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:1183:19:
elseif (tp == check_fe(.true., 4, 4, 6, 4)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:1189:19:
elseif (tp == check_fe(.false., 10, 4, 6, 4)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:1200:19:
elseif (tp == check_fe(.true., 8, 8, 12, 6)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:945:19:
elseif (tp == check_fe(.false., 3, 2, 1, 0)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:985:61:
elseif (tp == check_fe(.false., 6, 3, 3, 0) .or. tp == check_fe(.false., 8, 4, 4, 0)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:985:19:
elseif (tp == check_fe(.false., 6, 3, 3, 0) .or. tp == check_fe(.false., 8, 4, 4, 0)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:1007:20:
if(tp == check_fe(.false., 6, 3, 3, 0)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:1009:24:
elseif(tp == check_fe(.false., 8, 4, 4, 0)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:1014:62:
elseif (tp == check_fe(.false., 10, 4, 6, 4) .or. tp == check_fe(.false., 20, 8, 12, 6)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:1014:19:
elseif (tp == check_fe(.false., 10, 4, 6, 4) .or. tp == check_fe(.false., 20, 8, 12, 6)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:1036:20:
if(tp == check_fe(.false., 10, 4, 6, 4)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:1038:24:
elseif(tp == check_fe(.false., 20, 8, 12, 6)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:888:19:
tp == check_fe(.false., 6, 4, 6, 4)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:887:19:
elseif (tp == check_fe(.false., 3, 3, 3, 0) .or. &
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:895:19:
elseif (tp == check_fe(.false., 4, 4, 6, 4)) then
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:571:5:
tp = check_fe(nver==nnod, lnn, lnv, lne, lnf)
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:261:12:
valid_fe = [check_fe(.true., 1, 1, 0, 0), & !Node
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:261:44:
valid_fe = [check_fe(.true., 1, 1, 0, 0), & !Node
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:262:44:
check_fe(.true., 2, 2, 1, 0), & !Edge, Lagrange P1
1
Error: Type mismatch in argument 'nnod' at (1); passed LOGICAL(4) to INTEGER(4)
D:\GIT\ThirdParty\FEconv\source\pmh\module_pmh.f90:263:44:
check_fe(.false., 3, 2, 1, 0), & !Edge, Lagrange P2