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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
!
3
! Check whether BESXY functions take scalars and
4
! arrays as arguments (PR31760).
5
!
6
PROGRAM test_erf
7
  REAL :: r = 0.0, ra(2) = (/ 0.0, 1.0 /)
8
 
9
  r  = BESJ0(r)
10
  r  = BESJ1(r)
11
  r  = BESJN(0, r)
12
 
13
  r  = BESY0(r)
14
  r  = BESY1(r)
15
  r  = BESYN(0, r)
16
 
17
  ra = BESJ0(ra)
18
  ra = BESJ1(ra)
19
  ra = BESJN(0, ra)
20
 
21
  ra = BESY0(ra)
22
  ra = BESY1(ra)
23
  ra = BESYN(0, ra)
24
 
25
  r  = BESSEL_J0(r)
26
  r  = BESSEL_J1(r)
27
  r  = BESSEL_JN(0, r)
28
 
29
  r  = BESSEL_Y0(r)
30
  r  = BESSEL_Y1(r)
31
  r  = BESSEL_YN(0, r)
32
 
33
  ra = BESSEL_J0(ra)
34
  ra = BESSEL_J1(ra)
35
  ra = BESSEL_JN(0, ra)
36
 
37
  ra = BESSEL_Y0(ra)
38
  ra = BESSEL_Y1(ra)
39
  ra = BESSEL_YN(0, ra)
40
 
41
END PROGRAM

powered by: WebSVN 2.1.0

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