ElmerCSC / elmerfem

Official git repository of Elmer FEM software
http://www.elmerfem.org
Other
1.14k stars 310 forks source link

Fail to compile. Error: Index variable ‘i’ redefined. #322

Closed kevinsmia1939 closed 2 years ago

kevinsmia1939 commented 2 years ago

Hi I am trying to compile Elmer devel branch.

gcc (GCC) 11.2.0 cmake version 3.22.2 Flatpak 1.12.7 flatpak-builder 1.2.2

I am trying to Flatpak Elmer for Linux distros.

      - -DCMAKE_BUILD_TYPE:STRING=Release
      - -DCMAKE_INSTALL_PREFIX:PATH=/app
      - -DWITH_ELMERGUI:BOOL=TRUE
      - -DWITH_ELMERGUILOGGER:BOOL=TRUE
      - -DWITH_CONTRIB=ON
      - -DWITH_OpenMP:BOOL=TRUE
      - -DWITH_MPI:BOOL=TRUE
      - -DWITH_Hypre:BOOL=TRUE
      - -DWITH_ScatteredDataInterpolator=ON
      - -DWITH_ElmerIce:BOOL=TRUE
      - -DWITH_QT5=TRUE
      - -DWITH_VTK=ON
      - -DMPI_C_LIBRARIES=/app/lib
      - -DMPI_C_INCLUDE_PATH=/app/include
/run/build/Elmer/fem/src/modules/SaveData/SaveScalars.F90:1692:16:

  946 |             CALL AddToSaveList(TRIM(Name), Val)
      |                                               2
......
 1692 |         DO i=1,n
      |                1
Error: Index variable ‘i’ redefined at (1) in procedure ‘addtosavelist’ called from within DO loop at (2)
/run/build/Elmer/fem/src/modules/SaveData/SaveScalars.F90:1692:16:

  950 |               CALL AddToSaveList(TRIM(Name), Val2)
      |                                                  2
......
 1692 |         DO i=1,n
      |                1
Error: Index variable ‘i’ redefined at (1) in procedure ‘addtosavelist’ called from within DO loop at (2)
/run/build/Elmer/fem/src/modules/SaveData/SaveScalars.F90:1692:16:

  963 |             CALL AddToSaveList(TRIM(Name), Val)
      |                                               2
......
 1692 |         DO i=1,n
      |                1
Error: Index variable ‘i’ redefined at (1) in procedure ‘addtosavelist’ called from within DO loop at (2)
/run/build/Elmer/fem/src/modules/SaveData/SaveScalars.F90:1692:16:

 1011 |                 CALL AddToSaveList( TRIM(Name), Val)
      |                                                    2
......
 1692 |         DO i=1,n
      |                1
Error: Index variable ‘i’ redefined at (1) in procedure ‘addtosavelist’ called from within DO loop at (2)
/run/build/Elmer/fem/src/modules/SaveData/SaveScalars.F90:1692:16:

 1020 |                   CALL AddToSaveList( TRIM(Name), Val2)
      |                                                       2
......
 1692 |         DO i=1,n
      |                1
Error: Index variable ‘i’ redefined at (1) in procedure ‘addtosavelist’ called from within DO loop at (2)
/run/build/Elmer/fem/src/modules/SaveData/SaveScalars.F90:1692:16:

 1148 |                 CALL AddToSaveList(TRIM(Name), Val,.FALSE.,ParOper)
      |                                                                   2
......
 1692 |         DO i=1,n
      |                1
Error: Index variable ‘i’ redefined at (1) in procedure ‘addtosavelist’ called from within DO loop at (2)
/run/build/Elmer/fem/src/modules/SaveData/SaveScalars.F90:1692:16:

 1156 |                   CALL AddToSaveList(TRIM(Name), Val2,.FALSE.,ParOper)
      |                                                                                        2
......
 1692 |         DO i=1,n
      |                1
Error: Index variable ‘i’ redefined at (1) in procedure ‘addtosavelist’ called from within DO loop at (2)
/run/build/Elmer/fem/src/modules/SaveData/SaveScalars.F90:1692:16:

 1260 |             CALL AddToSaveList('component '//TRIM(I2S(i))//': '//TRIM(Lst % Name), Lst % Fvalues(1,1,1))
      |                                                                                                        2
......
 1692 |         DO i=1,n
      |                1
Error: Index variable ‘i’ redefined at (1) in procedure ‘addtosavelist’ called from within DO loop at (2)
[ 87%] Linking Fortran shared module Source.so
make[2]: *** [fem/src/modules/CMakeFiles/SaveData.dir/build.make:127: fem/src/modules/CMakeFiles/SaveData.dir/SaveData/SaveScalars.F90.o] Error 1
make[2]: *** Waiting for unfinished jobs....
raback commented 2 years ago

Thanx for the bug report. This was not found on all compilers. Fixed it minute ago on devel branch.