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