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
gcc/fortran:
[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
END PROGRAM