From 7a00f08dd0d987f8442d21ee398edac813e75af0 Mon Sep 17 00:00:00 2001
From: Wojtek Kosior <kwojtus@protonmail.com>
Date: Thu, 25 Apr 2019 13:08:42 +0200
Subject: support alternate floating point type numbering

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

(limited to 'src')

diff --git a/src/main.F90 b/src/main.F90
index cb0f97b..ddab8d1 100644
--- a/src/main.F90
+++ b/src/main.F90
@@ -11,11 +11,11 @@ PROGRAM mul
   DO WHILE (dim < 2000)
 
      SELECT CASE(realtype)
-        CASE (4)
+        CASE (4,1)
            time = measure_4(dim)
-        CASE (8)
+        CASE (8,2)
            time = measure_8(dim)
-        CASE (16)
+        CASE (16,3)
            time = measure_16(dim)
         CASE default
            write (*, *) "wrong kind for real: ", realtype
-- 
cgit v1.2.3