From b7d4d9aec166afa85a67b467eab499f3d2a676a5 Mon Sep 17 00:00:00 2001 From: Wojtek Kosior 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