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: Sun, 25 Feb 2007 22:19:38 +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=GB03G0AYwjcxKO3RMhvlb7mo4fgZpO+k1R1UFTsbbKxSBhdN39lGpMiy998O908jca713WVEyh746MvClnwT5ZtnGxOcALkMBxgkTPQ81e57m3O2aF+Z12r3ubMui9zZlOsUc9/083qQuJKRFU0MnZEf1rMUlu9kwfZeASGK6F8=
- 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=Dht9u52QB51A4FtMmZeG9jU2sgluyzvU3yLGcBxS/y9Po0l9gJWTJIpwddamcqxDCdhUr+QEI5pucKmfeK8diY15bWrmivEsRO7budUpdKcyi7agSeHQlieOYePFA+fgAlMGPasLPobHMnuu1FV0nl22Bi9C9x+JicavZQNqBks=
- References: <200702240321.21227.franke.daniel@gmail.com> <200702242314.50767.franke.daniel@gmail.com> <45E1CCF5.30701@net-b.de>
On Sunday 25 February 2007 18:52:53 Tobias Burnus wrote:
> Daniel Franke wrote:
> > http://gcc.gnu.org/wiki/GFortranTestsuiteIntrinsics
>
> 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.
subroutine = {
name = 'exit';
arg = 'status'; /* optional */
call = 'CALL exit()';
call = 'CALL exit(status = int_1)';
call = 'CALL exit(status = int_2)';
call = 'CALL exit(status = int_4)';
call = 'CALL exit(status = int_8)';
call = 'CALL exit(status = int_large)';
};
$> make check-gfortran RUNTESTFLAGS="intrinsics.exp=exit_*"
=== gfortran Summary ===
# of expected passes 28
# of unexpected failures 2
# of unsupported tests 2
Where the failures are the known ones (PR30933) and the unsupported testcases
(i686-pc-linux-gnu) are these:
$> cat compile/exit_sub_5.f90
! { dg-do compile }
! { dg-require-effective-target fortran_large_int }
program generated_testcase
integer, parameter :: large_int_kind = selected_int_kind(range(0_8) + 1)
INTEGER(kind=large_int_kind) :: int_large
CALL exit(status = int_large) ! valid
end program
$> cat link/exit_sub_6.f90
! { dg-do link }
! { dg-require-effective-target fortran_large_int }
program generated_testcase
integer, parameter :: large_int_kind = selected_int_kind(range(0_8) + 1)
INTEGER(kind=large_int_kind) :: int_large
CALL exit(status = int_large)
end program