OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2010-04-06 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
besxy.f90
1
! { 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