Added code to load last open file or an example or an untitled file.

Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>

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