1 files changed, 33 insertions, 0 deletions
diff --git a/indenters/__TODO/example.f90 b/indenters/__TODO/example.f90
new file mode 100755
index 0000000..8131b8b
--- /dev/null
+++ b/indenters/__TODO/example.f90
@@ -0,0 +1,33 @@
+module module1
+!  Identity of a utility
+! ____________________________________________________________________
+      character (len=*), parameter :: xyz = &
+"I am just a more or less long string."
+      character (len=*), parameter :: zhlp  = '( &
+&"This program is free software; you can redistribute it and/or modify"/&
+&"____________________________________________________________________")'
+integer:: n
+contains
+
+recursive subroutine sub1(x)
+integer,intent(inout):: x
+integer:: y
+y=0
+if (x<n) then
+ x= x + 1
+ y =x**2
+ print *, 'x = ', x,', y = ', y
+ call sub1(x)
+ print *, 'x = ', x,', y = ', y
+end if
+end subroutine sub1
+
+end module module1
+
+program main
+use module1
+integer:: x = 0
+print *, 'Enter number of repeats'
+read (*,*) n
+call sub1(x)
+end program main
+\ No newline at end of file