add Fortran example from official fprettify repo.
This commit is contained in:
Patrick Seewald
parent
f6ce60f798
commit
7e201a3b4a
258
samples/fortran.f90
Normal file
258
samples/fortran.f90
Normal file
@ -0,0 +1,258 @@
|
||||
module prettify_selftest
|
||||
implicit none
|
||||
private
|
||||
public :: dp, test_routine, &
|
||||
test_function, test_type, str_function
|
||||
integer, parameter :: dp = selected_real_kind ( 15 , 307)
|
||||
type test_type
|
||||
real (kind =dp ) :: r = 1.0d-3
|
||||
integer :: i
|
||||
end type test_type
|
||||
|
||||
contains
|
||||
|
||||
|
||||
subroutine test_routine( &
|
||||
r, i, j, k, l)
|
||||
integer, intent(in) :: r, i, j, k
|
||||
integer, intent (out) :: l
|
||||
|
||||
l = test_function(r,i,j,k)
|
||||
end &
|
||||
subroutine
|
||||
|
||||
pure function test_function(r, i, j, &
|
||||
k) &
|
||||
result(l)
|
||||
integer, intent(in) :: r, i, j, k
|
||||
integer :: l
|
||||
|
||||
l=r + i +j +k
|
||||
end function
|
||||
function &
|
||||
str_function(a) result(l)
|
||||
character(len=*) :: a
|
||||
integer :: l
|
||||
|
||||
if(len(a)<5)then
|
||||
l=0
|
||||
else
|
||||
l=1
|
||||
endif
|
||||
end function
|
||||
|
||||
end module
|
||||
|
||||
program example_prog
|
||||
use example, only: dp, test_routine, test_function, test_type,str_function
|
||||
|
||||
implicit none
|
||||
integer :: r,i,j,k,l,my_integer,m
|
||||
integer, dimension(5) :: arr
|
||||
integer, dimension(20) :: big_arr
|
||||
integer :: endif
|
||||
type(test_type) :: t
|
||||
real(kind=dp) :: r1, r2, r3, r4, r5, r6
|
||||
integer, pointer :: point
|
||||
|
||||
point=> null( )
|
||||
|
||||
! 1) white space formatting !
|
||||
!***************************!
|
||||
! example 1.1
|
||||
r=1;i=-2;j=3;k=4;l=5
|
||||
r2 = 0.0_dp; r3= 1.0_dp; r4 =2.0_dp; r5=3.0_dp; r6 = 4.0_dp
|
||||
r1=-(r2**i*(r3+r5*(-r4)-r6))-2.e+2
|
||||
if( r.eq.2.and.r<=5) i=3
|
||||
write(*, *)(merge(3, 1, i<=2))
|
||||
write(*, *)test_function(r,i,j , k)
|
||||
t % r = 4.0_dp
|
||||
t%i = str_function( "t % i = " )
|
||||
|
||||
! example 1.2
|
||||
my_integer=2
|
||||
i=3
|
||||
j=5
|
||||
|
||||
big_arr = [1, 2, 3, 4, 5, &
|
||||
6, 7, 8, 9, 10, &
|
||||
11, 12, 13, 14, 15, &
|
||||
16, 17, 18, 19, 20]
|
||||
|
||||
! example 1.3: disabling auto-formatter:
|
||||
my_integer = 2 !&
|
||||
i = 3 !&
|
||||
j = 5 !&
|
||||
|
||||
!&<
|
||||
my_integer = 2
|
||||
i = 3
|
||||
j = 5
|
||||
!&>
|
||||
|
||||
big_arr = [ 1, 2, 3, 4, 5, & !&
|
||||
6, 7, 8, 9, 10, & !&
|
||||
11, 12, 13, 14, 15, & !&
|
||||
16, 17, 18, 19, 20] !&
|
||||
|
||||
! example 1.4:
|
||||
|
||||
big_arr = [1, 2, 3, 4, 5,&
|
||||
& 6, 7, 8, 9, 10, &
|
||||
& 11, 12, 13, 14, 15,&
|
||||
&16, 17, 18, 19, 20]
|
||||
|
||||
! 2) auto indentation for loops !
|
||||
!*******************************!
|
||||
|
||||
! example 2.1
|
||||
l = 0
|
||||
do r= 1 , 10
|
||||
select case (r)
|
||||
case(1)
|
||||
do_label: do i = 1,100
|
||||
if (i<=2) then
|
||||
m =0
|
||||
do while(m <4)
|
||||
m =m+1
|
||||
do k=1,3
|
||||
if (k==1) l =l +1
|
||||
end do
|
||||
enddo
|
||||
endif
|
||||
enddo do_label
|
||||
case ( 2 )
|
||||
l=i + j + k
|
||||
end select
|
||||
enddo
|
||||
|
||||
! example 2.2
|
||||
do m = 1, 2
|
||||
do r = 1, 3
|
||||
write (*, *) r
|
||||
do k = 1, 4
|
||||
do l = 1, 3
|
||||
do i = 4, 5
|
||||
do my_integer = 1, 1
|
||||
do j = 1, 2
|
||||
write (*, *) test_function(m, r, k, l) + i
|
||||
enddo
|
||||
enddo
|
||||
enddo
|
||||
enddo
|
||||
enddo
|
||||
enddo
|
||||
enddo
|
||||
|
||||
! 3) auto alignment for linebreaks !
|
||||
!************************************!
|
||||
|
||||
! example 3.1
|
||||
l = test_function(1, 2, test_function(1, 2, 3, 4), 4) + 3 *(2+1)
|
||||
|
||||
l = test_function (1, 2, test_function(1,2, 3, 4),4) +&
|
||||
3*(2+ 1 )
|
||||
|
||||
l = test_function(1, 2, &
|
||||
test_function(1, 2, 3, 4), 4)+ &
|
||||
3 * (2+1)
|
||||
|
||||
l = test_function(1, 2, &
|
||||
test_function(1, 2, 3, &
|
||||
4), 4) + &
|
||||
3*(2 + 1)
|
||||
|
||||
! example 3.2
|
||||
arr = [1, (/3,4, 5/), 6] + [ 1, 2,3, 4,5 ]
|
||||
|
||||
arr = [1,(/ 3, 4, 5 /) , &
|
||||
6] +[1,2, 3, 4, 5 ]
|
||||
|
||||
arr = [1,(/3,4,5/), &
|
||||
6]+ &
|
||||
[1, 2, 3, 4, 5]
|
||||
|
||||
arr = [1, (/3, 4, &
|
||||
5/), &
|
||||
6] + &
|
||||
[1, 2,3, 4, 5 ]
|
||||
|
||||
! example 3.3
|
||||
l = test_function(1, 2, &
|
||||
3, 4)
|
||||
|
||||
l = test_function( &
|
||||
1, 2, 3, 4)
|
||||
|
||||
arr = [1, 2, &
|
||||
3, 4, 5]
|
||||
arr = [ &
|
||||
1, 2, 3, 4, 5]
|
||||
|
||||
! 4) more complex formatting and tricky test cases !
|
||||
!**************************************************!
|
||||
|
||||
! example 4.1
|
||||
l = 0
|
||||
do r = 1, 10
|
||||
select case ( r )
|
||||
case( 1)
|
||||
do i=1,100;if (i<=2) then! comment
|
||||
do j = 1,5
|
||||
do k= 1, 3
|
||||
l = l + 1
|
||||
! unindented comment
|
||||
! indented comment
|
||||
end do; enddo
|
||||
elseif ( .not. j ==4 ) then
|
||||
my_integer = 4
|
||||
else
|
||||
write (*,*) " hello"
|
||||
endif
|
||||
enddo
|
||||
case(2 )
|
||||
l = i+ j + k
|
||||
end select
|
||||
enddo
|
||||
|
||||
! example 4.2
|
||||
if ( &
|
||||
l == &
|
||||
111) &
|
||||
then
|
||||
do k = 1, 2
|
||||
if (k == 1) &
|
||||
l = test_function(1, &
|
||||
test_function(r=4, i=5, &
|
||||
j=6, k=test_function(1,2*(3*(1 +1)), str_function ( ")a!(b['(;=dfe"), &
|
||||
9) + &
|
||||
test_function(1, 2, 3, 4)), 9, 10) &
|
||||
! test_function(1,2,3,4)),9,10) &
|
||||
! +13*str_function('') + str_function('"')
|
||||
+ 13*str_function('') + str_function('"')
|
||||
end & ! comment
|
||||
! comment
|
||||
do
|
||||
endif
|
||||
|
||||
! example 4.3
|
||||
arr = [1,( /3,4, &
|
||||
5 /),&
|
||||
6 ]+ &
|
||||
[1,2, 3, 4,5] ; arr = [1, 2,&
|
||||
3, 4, 5]
|
||||
|
||||
! example 4.4
|
||||
endif = 3
|
||||
if(endif==2)then
|
||||
endif=5
|
||||
else if(endif==3)then
|
||||
write(*,*)endif
|
||||
endif
|
||||
|
||||
! example 4.5
|
||||
do i=1,2;if(.true.)then
|
||||
write(*, *)"hello"
|
||||
endif; enddo
|
||||
|
||||
end program
|
||||
Loading…
Reference in New Issue
Block a user