diff options
| author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-04-25 13:08:42 +0200 |
|---|---|---|
| committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-04-25 13:08:42 +0200 |
| commit | 7a00f08dd0d987f8442d21ee398edac813e75af0 (patch) | |
| tree | 911b5283294dbd7cf55421cf50886baf007be266 | |
| parent | 43d6007c3bec7ff883e9bc970a6b14e27d332280 (diff) | |
| download | fortran-assignment1-7a00f08dd0d987f8442d21ee398edac813e75af0.tar.gz fortran-assignment1-7a00f08dd0d987f8442d21ee398edac813e75af0.zip | |
support alternate floating point type numbering
| -rw-r--r-- | src/main.F90 | 6 |
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 |