diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/warn_conversion_2.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/warn_conversion_2.f90 | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/warn_conversion_2.f90 b/gcc/testsuite/gfortran.dg/warn_conversion_2.f90 index cb3b760a5e2..c0222983a0f 100644 --- a/gcc/testsuite/gfortran.dg/warn_conversion_2.f90 +++ b/gcc/testsuite/gfortran.dg/warn_conversion_2.f90 @@ -2,5 +2,10 @@ ! { dg-options "-Wconversion-extra" } real(8) :: sqrt2 - sqrt2 = sqrt(2.0) ! { dg-warning "conversion" } + real x + + x = 2.0 + sqrt2 = sqrt(x) ! { dg-warning "Conversion" } + + sqrt2 = sqrt(2.0) ! no warning; simplified to a constant and range checked end |