re PR fortran/84094 (several correctness issues in gfortran.dg)

2018-02-04  Dominique d'Humieres <dominiq@gcc.gnu.org>

	PR fortran/84094
	* gfortran.dg/associate_23.f90: Fix invalid code.
	* gfortran.dg/intrinsic_actual_4.f90: Likewise.
	* gfortran.dg/matmul_3.f90: Likewise.
	* gfortran.dg/transfer_array_intrinsic_2.f90: Likewise.

From-SVN: r257364

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3c93cba9db1cfc62bf2bbd1927715f2fbc22d2de..196711b26696b63bf4f72407aef1b0b543b89f50 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+2018-02-04  Dominique d'Humieres <dominiq@gcc.gnu.org>
+
+       PR fortran/84094
+       * gfortran.dg/associate_23.f90: Fix invalid code.
+       * gfortran.dg/intrinsic_actual_4.f90: Likewise.
+       * gfortran.dg/matmul_3.f90: Likewise.
+       * gfortran.dg/transfer_array_intrinsic_2.f90: Likewise.
+
 2018-02-04  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/84115

diff --git a/gcc/testsuite/gfortran.dg/associate_23.f90 b/gcc/testsuite/gfortran.dg/associate_23.f90
index b4d58ffd2b7bc29a8e272901de7e3025578c78aa..fc07671676d40d20765f312d37268047479a60b6 100644 (file)
--- a/gcc/testsuite/gfortran.dg/associate_23.f90
+++ b/gcc/testsuite/gfortran.dg/associate_23.f90
@@ -27,7 +27,7 @@ program test_this
 
 ! Found to be failing during debugging
   ASSOCIATE(should_work=>char_var_dim(1:2))
-    should_work = ["test SUCCESFUL", "test_SUCCESFUL", "test.SUCCESFUL"]
+    should_work = ["test SUCCESFUL", "test_SUCCESFUL"]
     write (buffer, *) should_work(:)(5:14)
   END ASSOCIATE
 

diff --git a/gcc/testsuite/gfortran.dg/intrinsic_actual_4.f90 b/gcc/testsuite/gfortran.dg/intrinsic_actual_4.f90
index 4ba4b79c72d09b3b1bfc2f094a2ef00384fb8fac..d5cd99c57acaf389226ba5eadd20982873cecbcb 100644 (file)
--- a/gcc/testsuite/gfortran.dg/intrinsic_actual_4.f90
+++ b/gcc/testsuite/gfortran.dg/intrinsic_actual_4.f90
@@ -13,6 +13,7 @@
 
       implicit none
       integer i
+      intrinsic len
       i = len ("123")
       call sub (len, "abcdef")
       end

diff --git a/gcc/testsuite/gfortran.dg/matmul_3.f90 b/gcc/testsuite/gfortran.dg/matmul_3.f90
index 65290feccaa1a6e87f01913b1d2206bc4b286a11..e8512330b5e9ee30d29e3c8328fc5ce1115a41c2 100644 (file)
--- a/gcc/testsuite/gfortran.dg/matmul_3.f90
+++ b/gcc/testsuite/gfortran.dg/matmul_3.f90
@@ -22,7 +22,7 @@
    iX2(1:n,1) = matmul( iB(2,1:n),iC(1:n,1:n) )\r
 \r
 ! Whereas, we should have 8, 8, 99\r
-   if (any (iX1(1:n,1) .ne. (/8, 8, 99/))) call abort ()\r
+   if (any (iX1(1:n+1,1) .ne. (/8, 8, 99/))) call abort ()\r
    if (any (iX1 .ne. iX2)) call abort ()\r
 \r
 ! Make sure that the fix does not break transpose temporaries.\r

diff --git a/gcc/testsuite/gfortran.dg/transfer_array_intrinsic_2.f90 b/gcc/testsuite/gfortran.dg/transfer_array_intrinsic_2.f90
index aaa10f8a4f5227a913edd782014a039dd7ad7145..ad2293d1e04a9c207507c2a98631f35b754b8de2 100644 (file)
--- a/gcc/testsuite/gfortran.dg/transfer_array_intrinsic_2.f90
+++ b/gcc/testsuite/gfortran.dg/transfer_array_intrinsic_2.f90
@@ -88,7 +88,7 @@ contains
      ch(1:2) = transfer (y, ch, 2)
      if (any (ch(1:2) .ne. (/"ABCD","EFGH"/))) call abort ()
 
-     z = transfer (ch, y)
+     z = transfer (ch, y, 2)
      if (any (y(1:2) .ne. z)) call abort ()
 
    end subroutine test2