diff options
| author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-04-23 22:56:02 +0200 |
|---|---|---|
| committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-04-23 22:56:02 +0200 |
| commit | e328b72fd7d407b42ad49e40f6ea6fd0041d562a (patch) | |
| tree | ef34066d7056e44697bbeef1a8e88f7a5da00ca1 | |
| parent | 2157bcd5276d35f2c462d8bf711dbd392ad2d11b (diff) | |
| download | fortran-assignment1-e328b72fd7d407b42ad49e40f6ea6fd0041d562a.tar.gz fortran-assignment1-e328b72fd7d407b42ad49e40f6ea6fd0041d562a.zip | |
fix parantheses typo
| -rw-r--r-- | src/naivemath.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
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) |