summaryrefslogtreecommitdiffstats
path: root/indenters/example.f90
blob: f2aae7d5fba7cefe9877392a8f9f27469ead06d6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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