URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [bessel_2.f90] - Blame information for rev 708

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


! { dg-do compile }
! PR fortran/36117
!
! This program will fail for MPFR < 2.3.0
!
! Based on a test by James Van Buskirk.
!
program bug3
   implicit none
   real, parameter :: Qarg1 = 1.7
   integer, parameter :: k2 = kind(BESJ0(Qarg1))
   integer, parameter :: is_int = 1-1/(2+0*BESJ0(Qarg1))*2
   integer, parameter :: kind_if_real = &
      (1-is_int)*k2+is_int*kind(1.0)
   complex :: z = cmplx(0,1,kind_if_real) ! FAILS
   if (kind_if_real /= kind(Qarg1)) call abort ()
end program bug3

Line No.	Rev	Author	Line
1	694	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+0BESJ0(Qarg1))2`
13			`integer, parameter :: kind_if_real = &`
14			`(1-is_int)k2+is_intkind(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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [bessel_2.f90] - Blame information for rev 708