From 88b7dae9e5e91bb718971ae5db4ec1d0c4180b51 Mon Sep 17 00:00:00 2001
From: Jorge Gonzalez <jorge.gonzalez@upm.es>
Date: Wed, 21 Oct 2020 08:43:30 +0200
Subject: [PATCH] No big improvements, just some syntaxis corrections in
 src/modules/moduleList.f95

---
 src/modules/moduleList.f95 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/modules/moduleList.f95 b/src/modules/moduleList.f95
index b11ed36..0abdd5a 100644
--- a/src/modules/moduleList.f95
+++ b/src/modules/moduleList.f95
@@ -10,7 +10,7 @@ MODULE moduleList
   END TYPE lNode
 
   TYPE listNode
-    INTEGER:: amount = 0
+    INTEGER:: amount = 0!TODO: Make private
     TYPE(lNode),POINTER:: head => NULL()
     TYPE(lNode),POINTER:: tail => NULL()
     CONTAINS
@@ -35,7 +35,7 @@ MODULE moduleList
 
       ALLOCATE(temp)
       temp%part => part
-      NULLIFY(temp%next)
+      temp%next => NULL()
       self%amount = self%amount + 1
       IF (.NOT. ASSOCIATED(self%head)) THEN
         !First element
@@ -44,7 +44,7 @@ MODULE moduleList
       ELSE
         !Append element
         self%tail%next => temp
-        self%tail => temp
+        self%tail      => temp
       END IF
 
     END SUBROUTINE addToList