aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
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