From 43d6007c3bec7ff883e9bc970a6b14e27d332280 Mon Sep 17 00:00:00 2001
From: Wojtek Kosior <kwojtus@protonmail.com>
Date: Thu, 25 Apr 2019 13:06:45 +0200
Subject: terminate program on wrong floating point kind specified

---
 src/main.F90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/main.F90 b/src/main.F90
index be9dd58..cb0f97b 100644
--- a/src/main.F90
+++ b/src/main.F90
@@ -19,6 +19,7 @@ PROGRAM mul
            time = measure_16(dim)
         CASE default
            write (*, *) "wrong kind for real: ", realtype
+           STOP
 
      END SELECT
         
-- 
cgit v1.2.3