diff --git a/src/prec.f90 b/src/prec.f90 index 2f0f20a00..4c4449551 100644 --- a/src/prec.f90 +++ b/src/prec.f90 @@ -79,9 +79,12 @@ module prec real(pReal), private, parameter :: PREAL_EPSILON = epsilon(0.0_pReal) !< minimum positive number such that 1.0 + EPSILON /= 1.0. real(pReal), private, parameter :: PREAL_MIN = tiny(0.0_pReal) !< smallest normalized floating point number - integer, dimension(0), parameter, public :: emptyIntArray = [integer::] - real(pReal), dimension(0), parameter, public :: emptyRealArray = [real(pReal)::] - character(len=pStringLen), dimension(0), parameter, public :: emptyStringArray = [character(len=pStringLen)::] + integer, dimension(0), parameter, public :: & + emptyIntArray = [integer::] + real(pReal), dimension(0), parameter, public :: & + emptyRealArray = [real(pReal)::] + character(len=pStringLen), dimension(0), parameter, public :: & + emptyStringArray = [character(len=pStringLen)::] private :: & unitTest