aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorWojtek Kosior <kwojtus@protonmail.com>2019-04-25 13:08:42 +0200
committerWojtek Kosior <kwojtus@protonmail.com>2019-04-25 13:08:42 +0200
commit7a00f08dd0d987f8442d21ee398edac813e75af0 (patch)
tree911b5283294dbd7cf55421cf50886baf007be266 /src
parent43d6007c3bec7ff883e9bc970a6b14e27d332280 (diff)
downloadfortran-assignment1-7a00f08dd0d987f8442d21ee398edac813e75af0.tar.gz
fortran-assignment1-7a00f08dd0d987f8442d21ee398edac813e75af0.zip
support alternate floating point type numbering
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