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" }