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