diff options
| author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-04-25 13:06:45 +0200 |
|---|---|---|
| committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-04-25 13:06:45 +0200 |
| commit | 43d6007c3bec7ff883e9bc970a6b14e27d332280 (patch) | |
| tree | e12e4faaacd8f8cffa19c68fe118863a347c0707 | |
| parent | 7a3dc61f1205a30d09e5e6662c1eecd651c92fd5 (diff) | |
| download | fortran-assignment1-43d6007c3bec7ff883e9bc970a6b14e27d332280.tar.gz fortran-assignment1-43d6007c3bec7ff883e9bc970a6b14e27d332280.zip | |
terminate program on wrong floating point kind specified
| -rw-r--r-- | src/main.F90 | 1 |
1 files changed, 1 insertions, 0 deletions
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 |