This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]
Other format:	[Raw text]

Re: Fortran test cases

From: Benson Muite <benson_muite at emailplus dot org>
To: Thomas Koenig <tkoenig at netcologne dot de>, fortran at gcc dot gnu dot org
Date: Wed, 23 Jan 2019 08:48:42 +0200
Subject: Re: Fortran test cases
References: <597f4291-e108-8591-550d-e69da7a53d38@emailplus.org> <8f60a1b3-40ae-2049-d4a7-070aa86a3afc@netcologne.de>



On 01/22/2019 08:28 PM, Thomas Koenig wrote:

Hi,

PROGRAM testsin
  real(kind=8) :: pi=3.14159265358979
  real(kind=8) :: out

  out = dsin(pi)
  print *,out
END PROGRAM testsin


Just an additional data point.

If you run this with -Wconversion -Wconversion-extra, you will get

testsin.f90:2:20:

     2 |  real(kind=8) :: pi=3.14159265358979
       |                    1
Warning: Conversion from 'REAL(4)' to 'REAL(8)' at (1) [-Wconversion-extra]
testsin.f90:2:36:

     2 |  real(kind=8) :: pi=3.14159265358979
       |                                    1

Warning: Non-significant digits in 'REAL(4)' number at (1), maybeincorrect KIND [-Wconversion-extra]


so the compiler has a facility to help you detect such errors.

Regards

     Thomas

Thanks.

References:
- Fortran test cases
  - From: Benson Muite
- Re: Fortran test cases
  - From: Thomas Koenig

Index Nav:	[Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav:	[Date Prev] [Date Next]	[Thread Prev] [Thread Next]