fortran lint

Author: scivision

cmake/abi_check/main.f90

@@ -20,12 +20,12 @@ end function addtwo
 if (addone(2) /= 3)  then
   write(stderr,*) "ERROR: 2+1 /= ", addone(2)
   error stop
-endif
+end if
 
 if (addtwo(2) /= 4) then
   write(stderr,*) "ERROR: 2+2 /= ", addtwo(2)
   error stop
-endif
+end if
 
 print *, "OK: Fortran main with C,C++ libraries"
 

src/poly_type/base_mod.f90

@@ -42,7 +42,7 @@ subroutine destructor(self)
     deallocate(self%D)
   else
     print *, "D was not allocated"
-  endif
+  end if
 
 end subroutine destructor
 

test/array/array.f90

@@ -30,7 +30,7 @@ subroutine timestwo_cpp(v, N) bind(C)
 if(any(A /= [4,8,12])) then
   write(stderr,*) "A = ", A
   error stop "fortran call timestwo_cpp failed"
-endif
+end if
 
 print *, "OK: Fortran array"
 

test/iso_fortran_binding/cfi_allocate.f90

@@ -27,7 +27,7 @@ subroutine dealloc3d(x) bind(c)
 call alloc3d(x)
 if (allocated(x)) then
   print *, "x has been allocated like x(", (LBOUND(x,i), UBOUND(x,i), i=1,3), ")"
-endif
+end if
 
 call dealloc3d(x)
 if (allocated(x)) error stop "CFI_deallocate failed"

test/pointer/pointer_bounds.f90

@@ -43,10 +43,10 @@ subroutine Lneg1_C(A) bind(C)
 if (lbound(A,1) /= 1) then
   write(error_unit,'(a,i0)') "Lneg1_C: unexpected lbound(A,1) ", lbound(A,1)
   error stop
-endif
+end if
 if (ubound(A,1) /= 4) then
   write(error_unit, '(a,i0)') "Lneg1_C: unexpected ubound(A,1) ", ubound(A,1)
   error stop
-endif
+end if
 end subroutine lneg1_C
 end program

test/sleep/test_sleep.f90

@@ -18,7 +18,7 @@ program sleep_demo
   call get_command_argument(1, argv, status=ierr)
   if (ierr /= 0) error stop "please specify milliseconds to sleep"
   read(argv, '(i6)') millisec
-endif
+end if
 
 if (millisec <= 0) error stop "please specify positive milliseconds to sleep"
 
@@ -32,12 +32,12 @@ program sleep_demo
   !> slept less than half expected time
   write(stderr, '(a, f9.6)') 'ERROR: measured sleep time too short (millisec): ', t_ms
   error stop
-endif
+end if
 if (t_ms > 2 * millisec) then
   !> slept more than twice expected time
   write(stderr, '(a, f9.6)') 'ERROR: measure sleep time too long (millisec): ', t_ms
   error stop
-endif
+end if
 
 print '(A, F6.1)', 'OK: test_sleep: slept for (ms): ', t_ms
 

test/string/print.f90

@@ -20,7 +20,7 @@ subroutine f_print(s, L) bind(C)
 do i = 1, len(buf)
     if (s(i) == C_NULL_CHAR) exit
     buf(i:i) = s(i)
-enddo
+end do
 allocate(character(len_trim(buf)) :: fs)
 fs = trim(buf)
 end block

test/struct/struct_rx.f90

@@ -36,7 +36,7 @@ pure subroutine struct_check_f(s) bind(C)
   do i = 1, len(buf)
     if (s%my_char(i) == c_null_char) exit
     buf(i:i) = s%my_char(i)
-  enddo
+  end do
   allocate(character(len_trim(buf)) :: my_char)
   my_char = trim(buf)
 end block

test/time/strptime.f90

@@ -25,7 +25,7 @@ integer(C_INT) function strptime(str,format,tm) bind(C)
 rc = strptime(trim(str)// c_null_char, trim(fmt)// c_null_char, tm)
 if(rc == 0) then
   error stop "strptime failed"
-endif
+end if
 
 print '(a3,1x,i4,1x,i2,1x,i2,1x,i2,1x,i2,1x,i2)', "OK:", &
   tm%tm_year+1900, tm%tm_mon+1, tm%tm_mday, tm%tm_hour, tm%tm_min, tm%tm_sec

test/vector/vector.f90

@@ -28,7 +28,7 @@ subroutine timestwo_cpp(a, a2, L)  bind (c)
 !! dummy data
 do i=1,N
   x(i) = int(i, C_INT)
-enddo
+end do
 
 call timestwo_c(x, x2, size(x, kind=C_SIZE_T))
 if (any(2*x /= x2)) error stop 'x2 /= 2*x'