1! { dg-do compile }
2! { dg-options "-Wconversion" }
3!
4! PR fortran/54234
5!
6!
7module fft_mod
8  implicit none
9  integer, parameter :: dp=kind(0.0d0)
10contains
11  subroutine test
12    integer :: x
13    x = int (abs (cmplx(2.3,0.1)))
14    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" }
15    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" }
16    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" }
17  end subroutine test
18end module fft_mod
19