gcc/testsuite/gfortran.dg/float_1.f90

   1 ! { dg-do run }
   2 ! PR fortran/26816
   3 program test_float
   4    integer(1) :: i1 = 1
   5    integer(2) :: i2 = 1
   6    integer(4) :: i4 = 1
   7    integer(8) :: i8 = 1
   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" }
  12
  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