From b7d4d9aec166afa85a67b467eab499f3d2a676a5 Mon Sep 17 00:00:00 2001
From: Wojtek Kosior <kwojtus@protonmail.com>
Date: Thu, 25 Apr 2019 13:12:16 +0200
Subject: use error_unit for writing error message

---
 src/main.F90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3