Intrinsic function returning a character string

[Tobias.Schlueter@Physik.Uni-Muenchen.DE]

Quoting François-Xavier Coudert <fxcoudert@gmail.com>:

> Do we have a example, in the current codebase, of an intrinsic
> function returning a character string? I'd like to implement the FDATE
> intrinsic (and the function HOSTNM), but can't find out how this is
> handled by the intrinsics framework (both front-end and library side).

The closest approximation is probably intrinsics/string_intrinsics.c, but note
the comment at the beginning of the file:
/* Unlike what the name of this file suggests, we don't actually
   implement the Fortran intrinsics here.  At least, not with the
   names they have in the standard.  The functions here provide all
   the support we need for the standard string intrinsics, and the
   compiler translates the actual intrinsics calls to calls to
   functions in this file.  */

So they're magic :-/

- Tobi