From e328b72fd7d407b42ad49e40f6ea6fd0041d562a Mon Sep 17 00:00:00 2001
From: Wojtek Kosior <kwojtus@protonmail.com>
Date: Tue, 23 Apr 2019 22:56:02 +0200
Subject: fix parantheses typo

---
 src/naivemath.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/naivemath.F90 b/src/naivemath.F90
index b1d06f0..47acaad 100644
--- a/src/naivemath.F90
+++ b/src/naivemath.F90
@@ -47,7 +47,7 @@ CONTAINS
     allocate(C(size(A, 1), size(B, 2)))
     C = 0
     
-    DO i = 1, size(A, 1))
+    DO i = 1, size(A, 1)
        DO j = 1, size(B, 2)
           DO k = 1, size(A, 2)
 
-- 
cgit v1.2.3