OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [bessel_2.f90] - Blame information for rev 316

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn
! { dg-do compile }
2
! PR fortran/36117
3
!
4
! This program will fail for MPFR < 2.3.0
5
!
6
! Based on a test by James Van Buskirk.
7
!
8
program bug3
9
   implicit none
10
   real, parameter :: Qarg1 = 1.7
11
   integer, parameter :: k2 = kind(BESJ0(Qarg1))
12
   integer, parameter :: is_int = 1-1/(2+0*BESJ0(Qarg1))*2
13
   integer, parameter :: kind_if_real = &
14
      (1-is_int)*k2+is_int*kind(1.0)
15
   complex :: z = cmplx(0,1,kind_if_real) ! FAILS
16
   if (kind_if_real /= kind(Qarg1)) call abort ()
17
end program bug3

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.