This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [patch, fortran] testsuite/gfortran.dg/intrinsics
- From: Daniel Franke <franke dot daniel at gmail dot com>
- To: Tobias Burnus <burnus at net-b dot de>
- Cc: fortran at gcc dot gnu dot org
- Date: Mon, 26 Feb 2007 00:09:46 +0100
- Subject: Re: [patch, fortran] testsuite/gfortran.dg/intrinsics
- Dkim-signature: a=rsa-sha1; c=relaxed/relaxed; d=gmail.com; s=beta; h=domainkey-signature:received:received:from:to:subject:date:user-agent:references:in-reply-to:cc:mime-version:content-type:content-transfer-encoding:content-disposition:message-id; b=XPqMCSwYN5Q9hy9u2CQKfFCurJqAe6OPjGMd0+LDJVOigPmNwbTEbMdQrKYP0ZQb+cNGEeQhgK2Ucl+maxuWhx4eFrpTjv1wqU3ey/4orHh3IYJLXTniJHWtYtCFYWRrRf/41/wx8n20W9AEZBqA2whEPM1MYxZrFoEY5Rtfxis=
- Domainkey-signature: a=rsa-sha1; c=nofws; d=gmail.com; s=beta; h=received:from:to:subject:date:user-agent:references:in-reply-to:cc:mime-version:content-type:content-transfer-encoding:content-disposition:message-id; b=eHXGsfxyo0bkW7nlERwOhL6tDZ2ICz1dB59h8erISHBQOpRm/Qr65SMNC2zX/h1zspdDXoIWMBeZ3ZmkcwNVYUVCcUvwrPFfbKG1RophVmupLalX035ndi3fulp/YnuXXkStYlp4gwkKZpJcLHMgWXWjskjXm4kALUDSApPbhZ4=
- References: <200702240321.21227.franke.daniel@gmail.com> <200702252219.38910.franke.daniel@gmail.com> <45E212DE.3030800@net-b.de>
On Sunday 25 February 2007 23:51:10 you wrote:
> Hi Daniel,
>
> Daniel Franke wrote:
> >> I have a question regarding the autogen generation: Is is also possible
> >> to check for the availability of types? I would like to test also
> >> integer(16), real(10), real(16), which are, however, not available on
> >> all systems.
> >
> > call = 'CALL exit(status = int_large)';
>
> Nice. What is the syntax for REAL? There we have REAL(10) and REAL(16)
> which are not on all platforms. (Neither 10 nor 16, only 10, only 16,
> and both 10 & 16 available are the possible cases.)
Equivalent
call = 'CALL xxx(arg = real_large)';
where the variable 'real_large' is defined as:
integer, parameter :: large_real_kind = &
selected_real_kind(precision(0.0_8) + 1)
REAL(kind=large_real_kind) :: real_large
On regards of real(10) and/or real(16), please note that FX wrote:
> Because we might have one of those large kinds, but we won't have both
> (this is hard-coded in the library).
(http://gcc.gnu.org/ml/fortran/2007-02/msg00246.html)
Regards
Daniel