Changeset 3785 for palm/trunk/UTIL/inifor/tests/test-input-files.f90

Timestamp:

Mar 6, 2019 10:41:14 AM (5 years ago)

Author:

eckhard

Message:

inifor: Removed unused variables, improved coding style

File:

• palm/trunk/UTIL/inifor/tests/test-input-files.f90 (modified) (4 diffs)

palm/trunk/UTIL/inifor/tests/test-input-files.f90

@@ -15 +15 @@
 ! PALM. If not, see <http://www.gnu.org/licenses/>.
 !
-! Copyright 2017-2018 Leibniz Universitaet Hannover
-! Copyright 2017-2018 Deutscher Wetterdienst Offenbach
+! Copyright 2017-2019 Leibniz Universitaet Hannover
+! Copyright 2017-2019 Deutscher Wetterdienst Offenbach
 !------------------------------------------------------------------------------!
 !
@@ -90 +90 @@
     DO i = 1, 6
        res = res .AND. (TRIM(ref_list(i)) .EQ. TRIM(file_list(i)))
-    END DO
+    ENDDO
 
     DEALLOCATE( ref_list, file_list )
@@ -115 +115 @@
     DO i = 1, 2
        res = res .AND. (TRIM(ref_list(i)) .EQ. TRIM(file_list(i)))
-    END DO
+    ENDDO
 
     DEALLOCATE( ref_list, file_list )
@@ -145 +145 @@
     DO i = 1, 2
        res = res .AND. (TRIM(ref_list(i)) .EQ. TRIM(file_list(i)))
-    END DO
+    ENDDO
 
     DEALLOCATE( ref_list, file_list )