aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/main.F906
1 files changed, 3 insertions, 3 deletions
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