repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
* gcc.target/i386/mpx/hard-reg-1-nov.c (mpx_test): Use "esp"
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
besxy.f90
blob
5cd5c8a96c79fdda3a6a412fe7050565ee0559ff
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