Local changes at work computer

grofz · Aug 17, 2023 · cd6d8e7 · cd6d8e7
1 parent 7ef4ae7
commit cd6d8e7
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git 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
@@ -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