1! { dg-do compile }
2! { dg-options "-Wconversion-extra" }
3
4  real(8) :: sqrt2
5  real x
6
7  x = 2.0
8  sqrt2 = sqrt(x)      ! { dg-warning "Conversion" }
9
10  sqrt2 = sqrt(2.0)    ! { dg-warning "Conversion" }
11end
12