[patch, fortran] testsuite/gfortran.dg/intrinsics

[Daniel Franke]

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