aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorWojtek Kosior <kwojtus@protonmail.com>2019-04-25 13:12:16 +0200
committerWojtek Kosior <kwojtus@protonmail.com>2019-04-25 13:12:16 +0200
commitb7d4d9aec166afa85a67b467eab499f3d2a676a5 (patch)
tree3e6eb2c0643cc00c8371ed8e6826c097a6cc2f4f /src
parent7a00f08dd0d987f8442d21ee398edac813e75af0 (diff)
downloadfortran-assignment1-b7d4d9aec166afa85a67b467eab499f3d2a676a5.tar.gz
fortran-assignment1-b7d4d9aec166afa85a67b467eab499f3d2a676a5.zip
use error_unit for writing error message
Diffstat (limited to 'src')
-rw-r--r--src/main.F903
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