From cd6d8e7e0bb653e175c3341dffd8f82a21f13b12 Mon Sep 17 00:00:00 2001
From: Zdenek Grof <zdenek.grof@vscht.cz>
Date: Thu, 17 Aug 2023 13:53:22 +0200
Subject: [PATCH] Local changes at work computer

---
 Makefile       |  2 +-
 test/check.f90 | 10 +++++-----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/Makefile b/Makefile
index b5b56a3..835080e 100644
--- a/Makefile
+++ b/Makefile
@@ -5,7 +5,7 @@ vpath %.f90 test
 vpath %.f90 example
 
 FC = gfortran
-FFLAGS = -Og -std=f2018 -Wall -Wextra -pedantic -fimplicit-none -fcheck=all -fbacktrace
+FFLAGS = -ggdb -std=f2018 -Wall -Wextra -pedantic -fimplicit-none -fcheck=all -fbacktrace
 #FFLAGS = -O3 -std=f2018 -Wall -Wextra -pedantic -fimplicit-none -fbacktrace
 COMPILE = $(FC) $(FFLAGS) -c
 MAKEMOD = $(FC) $(FFLAGS) -fsyntax-only -c
diff --git a/test/check.f90 b/test/check.f90
index 84adb80..811e218 100644
--- a/test/check.f90
+++ b/test/check.f90
@@ -155,7 +155,7 @@ subroutine test2()
   ! Working with an empty list
   head => null()
   head => dllnode_reverse(head)
-  print '("Is valid an empty node ? ",L)', dllnode_validate(head)
+  print '("Is valid an empty node ? ",L2)', dllnode_validate(head)
 
 
   ! Add nodes to the list
@@ -166,18 +166,18 @@ subroutine test2()
         head1)
     head => head1
     print '("Head export = ",*(i0,1x))', dllnode_export(head)
-    print '("Is list valid? ",L)', dllnode_validate(head)
+    print '("Is list valid? ",L2)', dllnode_validate(head)
     if (i==1) then
       head => dllnode_reverse(head)
-      print '("Is list valid? ",L)', dllnode_validate(head)
+      print '("Is list valid? ",L2)', dllnode_validate(head)
       print '("After reverse = ",*(i0,1x))', dllnode_export(head)
     else if (i==2) then
       head => dllnode_reverse(head)
-      print '("Is list valid? ",L)', dllnode_validate(head)
+      print '("Is list valid? ",L2)', dllnode_validate(head)
       print '("After reverse = ",*(i0,1x))', dllnode_export(head)
     else if (i==MAXN) then
       head => dllnode_reverse(head)
-      print '("Is list valid? ",L)', dllnode_validate(head)
+      print '("Is list valid? ",L2)', dllnode_validate(head)
       print '("After reverse = ",*(i0,1x))', dllnode_export(head)
     end if
   end do