This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: Help with the front-end
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: Fran?ois-Xavier Coudert <fxcoudert at gmail dot com>
- Cc: "fortran at gcc dot gnu dot org" <fortran at gcc dot gnu dot org>
- Date: Tue, 28 Jun 2005 08:24:13 -0700
- Subject: Re: Help with the front-end
- References: <19c433eb0506280806646b0e4e@mail.gmail.com>
On Tue, Jun 28, 2005 at 05:06:54PM +0200, Fran?ois-Xavier Coudert wrote:
> Hi all,
>
> With my current front-end patch for large real kinds, I have a small
> problem with large complex kinds. The following code:
>
> complex(10) :: w
> w = sin (w)
>
> gives the correct parse tree: "ASSIGN w __sin_c8[[((w))]]" but an
> incorrect tree-original: "w = csin (w);" (instead of csinl).
>
> I don't really know where to look. Where do this transformation from
> the __sin_c8 form to the libm function occurs? Grepping didn't help me
> on this...
>
I think you need to edit mtype.m4 to have it generate
__sin_c10 for real*10 and _sin_c16 for real*16. m4
is black magic to me, so Paul B or Thomas Koenig may
be of help.
--
Steve