From e0110c676ec4ab36ec699a7205ecf83c23039000 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 2 Jan 2020 18:44:51 +0100 Subject: [PATCH] avoid long lines --- src/prec.f90 | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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