1! { dg-do compile }
2! { dg-options "-Wconversion -Wconversion-extra" }
3! PR 47659 - warning about conversions on assignment
4! Based on a test case by Thomas Henlich
5program main
6  double precision d1, d2
7  complex(8), parameter :: z = cmplx (0.5, 0.5)  ! { dg-warning "Conversion" }
8  real :: r1, r2
9  r1 = 2.3d0 ! { dg-warning "Change of value in conversion" }
10  r2 = 2.5d0 ! { dg-warning "Conversion" }
11  d1 = .13 ! { dg-warning "Conversion" }
12  d2 = .13d0
13  d1 = z     ! { dg-warning "Non-zero imaginary part" }
14end program main
15