2 ! Progam to test the dfloat intrinsic.
11 if (dfloat(i2) /= -4.d0) call abort() ! { dg-warning "non-default INTEGER" }
12 if (dfloat(i4) /= 4.d0) call abort()
13 if (dfloat(i8) /= 10.d0) call abort() ! { dg-warning "non-default INTEGER" }
14 if (dfloat(i4*i2) /= -16.d0) call abort()
16 if (kind(dfloat(i4)) /= kind(1.0_8)) call abort
17 if (kind(dfloat(i8)) /= kind(1.0_8)) call abort ! { dg-warning "non-default INTEGER" }