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