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 3c93cba..196711b 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 b4d58ff..fc07671 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 4ba4b79..d5cd99c 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 65290fe..e851233 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 aaa10f8..ad2293d 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