1! { dg-do compile }
2! { dg-options "-fno-range-check" }
3! This test executes all code paths in gfc_arith_divide
4! when executed along with it's companion test
5! arith_divide.f
6
7        implicit none
8        integer i,j
9        real a,b
10        complex c,d
11        i = 10/40
12        j = 10/0! { dg-error "Division by zero at" }
13        a = 10.0/40.0
14        b = 10.0/0.0
15        c = (1.0,1.0)/(10.0,40.0)
16        d = (1.0,10.)/(0.0,0.0)
17        end
18