Index: LMDZ6/trunk/libf/misc/readTracFiles_mod.f90
===================================================================
--- LMDZ6/trunk/libf/misc/readTracFiles_mod.f90	(revision 4232)
+++ LMDZ6/trunk/libf/misc/readTracFiles_mod.f90	(revision 4233)
@@ -175,4 +175,5 @@
   END SELECT
   !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
 
   IF(ALL([2,3] /= fType)) RETURN
@@ -613,6 +614,10 @@
 !------------------------------------------------------------------------------------------------------------------------------
   TYPE(trac_type), ALLOCATABLE, INTENT(INOUT) :: tr(:)         !--- Tracer derived type vector
-  INTEGER,         ALLOCATABLE :: iy(:), iz(:)
-  INTEGER :: ig, ng, iq, jq, ip, nq, n, ix(SIZE(tr)), k
+!------------------------------------------------------------------------------------------------------------------------------
+  TYPE(trac_type), ALLOCATABLE        :: tr2(:)
+  INTEGER,         ALLOCATABLE        :: iy(:), iz(:)
+  INTEGER                             :: ig, ng, iq, jq, ip, nq, n, ix(SIZE(tr)), k
+  INTEGER                             :: it
+!  tr2 is introduced in order to cope with a bug in gfortran 4.8.5 compiler
 !------------------------------------------------------------------------------------------------------------------------------
   nq = SIZE(tr)
@@ -620,5 +625,6 @@
     iq = strIdx(tr(:)%name, addPhase('H2O', ip))
     IF(iq == 0) CYCLE
-    tr = [tr(iq), tr(1:iq-1), tr(iq+1:nq)]
+    tr2 = tr(:)
+    tr = [tr2(iq), tr2(1:iq-1), tr2(iq+1:nq)]
   END DO
   IF(lSortByGen) THEN