procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
This commit is contained in:
Dominique d'Humieres 2018-02-04 14:44:52 +01:00
parent 26f822c249
commit 22b128c53b
5 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View file

@ -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

2
gcc/testsuite/gfortran.dg/associate_23.f90
View file

@ -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

1
gcc/testsuite/gfortran.dg/intrinsic_actual_4.f90
View file

@ -13,6 +13,7 @@
implicit none
integer i
intrinsic len
i = len ("123")
call sub (len, "abcdef")
end

2
gcc/testsuite/gfortran.dg/matmul_3.f90
View file

@ -22,7 +22,7 @@
iX2(1:n,1) = matmul( iB(2,1:n),iC(1:n,1:n) )
! Whereas, we should have 8, 8, 99
if (any (iX1(1:n,1) .ne. (/8, 8, 99/))) call abort ()
if (any (iX1(1:n+1,1) .ne. (/8, 8, 99/))) call abort ()
if (any (iX1 .ne. iX2)) call abort ()
! Make sure that the fix does not break transpose temporaries.

2
gcc/testsuite/gfortran.dg/transfer_array_intrinsic_2.f90
View file

@ -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