diff options
| author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-04-25 13:12:16 +0200 |
|---|---|---|
| committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-04-25 13:12:16 +0200 |
| commit | b7d4d9aec166afa85a67b467eab499f3d2a676a5 (patch) | |
| tree | 3e6eb2c0643cc00c8371ed8e6826c097a6cc2f4f /src | |
| parent | 7a00f08dd0d987f8442d21ee398edac813e75af0 (diff) | |
| download | fortran-assignment1-b7d4d9aec166afa85a67b467eab499f3d2a676a5.tar.gz fortran-assignment1-b7d4d9aec166afa85a67b467eab499f3d2a676a5.zip | |
use error_unit for writing error message
Diffstat (limited to 'src')
| -rw-r--r-- | src/main.F90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/main.F90 b/src/main.F90 index ddab8d1..b0f0ffb 100644 --- a/src/main.F90 +++ b/src/main.F90 @@ -2,6 +2,7 @@ PROGRAM mul USE naivmat USE bettmat USE dotmat + USE iso_fortran_env, only: error_unit IMPLICIT none integer, parameter :: seed = 123456 @@ -18,7 +19,7 @@ PROGRAM mul CASE (16,3) time = measure_16(dim) CASE default - write (*, *) "wrong kind for real: ", realtype + write (error_unit, *) "wrong kind for real: ", realtype STOP END SELECT |