8 if (float(i1) /= 1.) call abort ! { dg-warning "non-default INTEGER" }
9 if (float(i2) /= 1.) call abort ! { dg-warning "non-default INTEGER" }
10 if (float(i4) /= 1.) call abort
11 if (float(i8) /= 1.) call abort ! { dg-warning "non-default INTEGER" }
13 if (kind(float(i4)) /= kind(1.0)) call abort
14 if (kind(float(i8)) /= kind(1.0)) call abort ! { dg-warning "non-default INTEGER" }
15 end program test_float