diff options
| author | Michele Calgaro <[email protected]> | 2024-09-18 14:21:27 +0900 |
|---|---|---|
| committer | Michele Calgaro <[email protected]> | 2024-09-18 14:21:27 +0900 |
| commit | 8d6255b84d9fb6a585d010119f289baff0794df9 (patch) | |
| tree | 5e2a9bb3ea6f85217a9e01cee5634dca5170ca50 /indenters/__TODO/example.f90 | |
| parent | 3db895919a4cd36972dd5241f480a68fe0f4eb4d (diff) | |
| download | universal-indent-gui-tqt-8d6255b84d9fb6a585d010119f289baff0794df9.tar.gz universal-indent-gui-tqt-8d6255b84d9fb6a585d010119f289baff0794df9.zip | |
Added indenter examples
Signed-off-by: Michele Calgaro <[email protected]>
Diffstat (limited to 'indenters/__TODO/example.f90')
| -rwxr-xr-x | indenters/__TODO/example.f90 | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/indenters/__TODO/example.f90 b/indenters/__TODO/example.f90 deleted file mode 100755 index 8131b8b..0000000 --- a/indenters/__TODO/example.f90 +++ /dev/null @@ -1,33 +0,0 @@ -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 |