From 19a353edb4824e71c8ea0283edeef589db71400a Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 18 Sep 2013 13:59:42 +0000 Subject: [PATCH] made error in case of invalid precision more verbose --- code/prec.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/prec.f90 b/code/prec.f90 index 4ce875e18..ab26605ba 100644 --- a/code/prec.f90 +++ b/code/prec.f90 @@ -52,7 +52,7 @@ module prec real(pReal), parameter, public :: DAMASK_NaN = real(Z'7FF8000000000000', pReal) !< quiet NaN for double precision (from http://www.hpc.unimelb.edu.au/doc/f90lrm/dfum_035.html, copy can be found in documentation/Code/Fortran) #endif #else - NO SUITABLE PRECISION SELECTED, STOPPING COMPILATION + NO SUITABLE PRECISION FOR REAL SELECTED, STOPPING COMPILATION #endif #if (INT==4) @@ -60,7 +60,7 @@ module prec #elif (INT==8) integer, parameter, public :: pInt = 8 !< integer representation 64 bit (was selected_int_kind(12), number with at least up to +- 1e12) #else - NO SUITABLE PRECISION SELECTED, STOPPING COMPILATION + NO SUITABLE PRECISION FOR INTEGER SELECTED, STOPPING COMPILATION #endif integer, parameter, public :: pLongInt = 8 !< integer representation 64 bit (was selected_int_kind(12), number with at least up to +- 1e12)