warn_conversion_4.f90: Adjust test.

2014-04-05  Dominique d'Humieres <dominiq@lps.ens.fr>

	* gfortran.dg/warn_conversion_4.f90: Adjust test.

From-SVN: r209151

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0fff71c..a049d0a 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2014-04-05  Dominique d'Humieres <dominiq@lps.ens.fr>
+
+       * gfortran.dg/warn_conversion_4.f90: Adjust test.
+
 2014-05-04 Pitchumani Sivanupandi  <Pitchumani.S@atmel.com>
 
        * gcc.target/avr/dev-specific-rmw.c: New test.

diff --git a/gcc/testsuite/gfortran.dg/warn_conversion_4.f90 b/gcc/testsuite/gfortran.dg/warn_conversion_4.f90
index f911741..3d1b125 100644 (file)
--- a/gcc/testsuite/gfortran.dg/warn_conversion_4.f90
+++ b/gcc/testsuite/gfortran.dg/warn_conversion_4.f90
@@ -11,8 +11,8 @@ contains
   subroutine test
     integer :: x
     x = int (abs (cmplx(2.3,0.1)))
-    x = int (abs (cmplx(2.3_dp,0.1))) ! { dg-warning "Conversion from REAL.8. to default-kind COMPLEX.4. at .1. might loose precision, consider using the KIND argument" }
-    x = int (abs (cmplx(2.3,0.1_dp))) ! { dg-warning "Conversion from REAL.8. to default-kind COMPLEX.4. at .1. might loose precision, consider using the KIND argument" }
-    x = int (abs (cmplx(2.3_dp,0.1_dp))) ! { dg-warning "Conversion from REAL.8. to default-kind COMPLEX.4. at .1. might loose precision, consider using the KIND argument" }
+    x = int (abs (cmplx(2.3_dp,0.1))) ! { dg-warning "Conversion from REAL.8. to default-kind COMPLEX.4. at .1. might lose precision, consider using the KIND argument" }
+    x = int (abs (cmplx(2.3,0.1_dp))) ! { dg-warning "Conversion from REAL.8. to default-kind COMPLEX.4. at .1. might lose precision, consider using the KIND argument" }
+    x = int (abs (cmplx(2.3_dp,0.1_dp))) ! { dg-warning "Conversion from REAL.8. to default-kind COMPLEX.4. at .1. might lose precision, consider using the KIND argument" }
   end subroutine test
 end module fft_mod