gcc/testsuite/gfortran.dg/warn_conversion_4.f90

! { dg-do compile }
! { dg-options "-Wconversion" }
!
! PR fortran/54234
!
!
module fft_mod
  implicit none
  integer, parameter :: dp=kind(0.0d0)
contains
  subroutine test
    integer :: x
    x = int (abs (cmplx(2.3,0.1)))
    x = int (abs (cmplx(2.3_dp,0.1))) ! { dg-warning "Conversion from REAL.8. to default-kind COMPLEX.4. at .1. might lose precision, consider using the KIND argument" }
    x = int (abs (cmplx(2.3,0.1_dp))) ! { dg-warning "Conversion from REAL.8. to default-kind COMPLEX.4. at .1. might lose precision, consider using the KIND argument" }
    x = int (abs (cmplx(2.3_dp,0.1_dp))) ! { dg-warning "Conversion from REAL.8. to default-kind COMPLEX.4. at .1. might lose precision, consider using the KIND argument" }
  end subroutine test
end module fft_mod