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