2 ! { dg-options "-Wconversion -Wconversion-extra" }
3 ! PR 47659 - warning about conversions on assignment
4 ! Based on a test case by Thomas Henlich
6 double precision d1, d2
7 complex(8), parameter :: z = cmplx (0.5, 0.5) ! { dg-warning "Conversion" }
9 r1 = 2.3d0 ! { dg-warning "Change of value in conversion" }
10 r2 = 2.5d0 ! No warning because the value does not change
11 d1 = .13 ! { dg-warning "Conversion" }
13 d1 = z ! { dg-warning "change of value in conversion" }