style: add block

degawa · Sep 20, 2021 · 8d563e3 · 8d563e3
1 parent 9cdf28b
commit 8d563e3
Showing 1 changed file with 9 additions and 7 deletions.
diff --git a/himenoBMT.f90 b/himenoBMT.f90
@@ -130,13 +130,15 @@ program HimenoBMTxp_F90
  print *, " Score based on Pentium III 600MHz :", score
  end block Actual
 
- deallocate (p)
- deallocate (a)
- deallocate (b)
- deallocate (c)
- deallocate (bnd)
- deallocate (src)
- deallocate (wrk)
+ Finalize: block
+ deallocate (p)
+ deallocate (a)
+ deallocate (b)
+ deallocate (c)
+ deallocate (bnd)
+ deallocate (src)
+ deallocate (wrk)
+ end block Finalize
 
 contains