Error on "make", involving FREEIF in defs.h
Posted: Tue Apr 08, 2014 10:14 pm
Hello,
We are attempting to install ABINIT v7.6 in a non-parallel implementation. The configure step was successful, but when we attempt to "make", there is an error compiling the file "src/62_ctqmc/m_ListCdagC.F90" with gfortran-4.3. The Error message is as follows:
gfortran-4.3 -DHAVE_CONFIG_H -I. -I../../../src/62_ctqmc -I../.. -I../../src/incs -I../../../src/incs -I/users2/mikclark/abinit-7.6.2/build/fallbacks/exports/include -ffree-form -J/users2/mikclark/abinit-7.6.2/build/src/mods -O2 -c -o m_ListCdagC.o ../../../src/62_ctqmc/m_ListCdagC.F90
../../../src/62_ctqmc/m_ListCdagC.F90:129.31:
IF(ALLOCATED( list_1%list )) THEN \newline deallocate( list_1%list , stat=ABI
1
Error: Cannot assign to a named constant at (1)
../../../src/62_ctqmc/m_ListCdagC.F90:242.29:
IF(ALLOCATED(list_temp)) THEN \newline deallocate(list_temp, stat=ABI_ALLOC
1
Error: Cannot assign to a named constant at (1)
../../../src/62_ctqmc/m_ListCdagC.F90:954.29:
IF(ALLOCATED(list_1%list)) THEN \newline deallocate(list_1%list, stat=ABI_ALL
1
Error: Cannot assign to a named constant at (1)
make[3]: *** [m_ListCdagC.o] Error 1
make[3]: Leaving directory `/users2/mikclark/abinit-7.6.2/build/src/62_ctqmc'
make[2]: *** [all-recursive] Error 1
make[2]: Leaving directory `/users2/mikclark/abinit-7.6.2/build/src'
make[1]: *** [all-recursive] Error 1
make[1]: Leaving directory `/users2/mikclark/abinit-7.6.2/build'
make: *** [all] Error 2
By looking in the F90 file, it seems that something is going wrong with FREEIF(list_1%list). The FREEIF function is defined in the "defs.h" header file and list_1 is a user-defined data type called ListCdagC. However, this error DOES NOT OCCUR when other F90 files are compiled, even if they also use FREEIF with a user-defined data-type. It seems there is a problem with the file m_ListCdagC.F90, but I cannot trace where it could be, particularly since the error above is not descriptive. Can anyone assist us or provide any advice?
Thanks in advance.
We are attempting to install ABINIT v7.6 in a non-parallel implementation. The configure step was successful, but when we attempt to "make", there is an error compiling the file "src/62_ctqmc/m_ListCdagC.F90" with gfortran-4.3. The Error message is as follows:
gfortran-4.3 -DHAVE_CONFIG_H -I. -I../../../src/62_ctqmc -I../.. -I../../src/incs -I../../../src/incs -I/users2/mikclark/abinit-7.6.2/build/fallbacks/exports/include -ffree-form -J/users2/mikclark/abinit-7.6.2/build/src/mods -O2 -c -o m_ListCdagC.o ../../../src/62_ctqmc/m_ListCdagC.F90
../../../src/62_ctqmc/m_ListCdagC.F90:129.31:
IF(ALLOCATED( list_1%list )) THEN \newline deallocate( list_1%list , stat=ABI
1
Error: Cannot assign to a named constant at (1)
../../../src/62_ctqmc/m_ListCdagC.F90:242.29:
IF(ALLOCATED(list_temp)) THEN \newline deallocate(list_temp, stat=ABI_ALLOC
1
Error: Cannot assign to a named constant at (1)
../../../src/62_ctqmc/m_ListCdagC.F90:954.29:
IF(ALLOCATED(list_1%list)) THEN \newline deallocate(list_1%list, stat=ABI_ALL
1
Error: Cannot assign to a named constant at (1)
make[3]: *** [m_ListCdagC.o] Error 1
make[3]: Leaving directory `/users2/mikclark/abinit-7.6.2/build/src/62_ctqmc'
make[2]: *** [all-recursive] Error 1
make[2]: Leaving directory `/users2/mikclark/abinit-7.6.2/build/src'
make[1]: *** [all-recursive] Error 1
make[1]: Leaving directory `/users2/mikclark/abinit-7.6.2/build'
make: *** [all] Error 2
By looking in the F90 file, it seems that something is going wrong with FREEIF(list_1%list). The FREEIF function is defined in the "defs.h" header file and list_1 is a user-defined data type called ListCdagC. However, this error DOES NOT OCCUR when other F90 files are compiled, even if they also use FREEIF with a user-defined data-type. It seems there is a problem with the file m_ListCdagC.F90, but I cannot trace where it could be, particularly since the error above is not descriptive. Can anyone assist us or provide any advice?
Thanks in advance.