gcc/testsuite/g77.dg/pr5473.f

   1       program pr5473
   2 c Derived from g77.f-torture/execute/intrinsic-unix-bessel.f
   3 c Origin: David Billinghurst <David.Billinghurst@riotinto.com>
   4 c { dg-do compile }
   5       real x, a
   6       double precision dx, da
   7       integer*8 m
   8       x = 2.0
   9       dx = x
  10       m = 2
  11       a = BESJN(m,x) ! { dg-error "incorrect type" "incorrect type" }
  12       a = BESYN(m,x) ! { dg-error "incorrect type" "incorrect type" }
  13       da = DBESJN(m,dx) ! { dg-error "incorrect type" "incorrect type" }
  14       da = DBESYN(m,dx) ! { dg-error "incorrect type" "incorrect type" }
  15       end