[gcc.git] / gcc / testsuite / g77.dg / pr5473.f

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