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

Fortran: Fix dg directives and remove trailing whitespaces in testsuite

Browse source 
2023-04-08   Paul Thomas  <pault@gcc.gnu.org>

	* gfortran.dg/c-interop/allocatable-optional-pointer.f90 : Fix
	dg directive and remove trailing whitespace.
	* gfortran.dg/c-interop/c407a-1.f90 : ditto
	* gfortran.dg/c-interop/c407b-1.f90 : ditto
	* gfortran.dg/c-interop/c407b-2.f90 : ditto
	* gfortran.dg/c-interop/c407c-1.f90 : ditto
	* gfortran.dg/c-interop/c535a-1.f90 : ditto
	* gfortran.dg/c-interop/c535a-2.f90 : ditto
	* gfortran.dg/c-interop/c535b-1.f90 : ditto
	* gfortran.dg/c-interop/c535b-2.f90 : ditto
	* gfortran.dg/c-interop/c535b-3.f90 : ditto
	* gfortran.dg/c-interop/c535c-1.f90 : ditto
	* gfortran.dg/c-interop/c535c-2.f90 : ditto
	* gfortran.dg/c-interop/deferred-character-1.f90 : ditto
	* gfortran.dg/c-interop/removed-restrictions-1.f90 : ditto
	* gfortran.dg/c-interop/removed-restrictions-2.f90 : ditto
	* gfortran.dg/c-interop/removed-restrictions-4.f90 : ditto
	* gfortran.dg/c-interop/tkr.f90 : ditto
	* gfortran.dg/class_result_10.f90 : ditto
	* gfortran.dg/dtio_35.f90 : ditto
	* gfortran.dg/gomp/affinity-clause-1.f90 : ditto
	* gfortran.dg/pr103258.f90 : ditto
	* gfortran.dg/pr59107.f90 : ditto
	* gfortran.dg/pr93835.f08 : ditto
This commit is contained in:
Paul Thomas 2023-04-08 07:49:13 +01:00
parent d8ec34a162
commit 46fe32cb4d
23 changed files with 72 additions and 72 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,4 +1,4 @@
! { dg-compile }
! { dg-do compile }
!
! Reported by Vladimir Nikishkin
! at https://stackoverflow.com/questions/60972134/whats-wrong-with-the-following-fortran-code-gfortran-dtio-dummy-argument-at#

2
gcc/testsuite/gfortran.dg/gomp/affinity-clause-1.f90
View file

@ -24,7 +24,7 @@ end
! { dg-final { scan-tree-dump-times "#pragma omp task affinity\\(iterator\\(integer\\(kind=4\\) jj=2:5:2, integer\\(kind=4\\) i=D\\.\[0-9\]+:5:1\\):b\\\[.* <?i>? \\+ -1\\\]\\) affinity\\(iterator\\(integer\\(kind=4\\) jj=2:5:2, integer\\(kind=4\\) i=D\\.\[0-9\]+:5:1\\):d\\\[\\(.*jj \\* 5 \\+ .* <?i>?\\) \\+ -6\\\]\\)" 1 "original" } }
! { dg final { scan-tree-dump-times "#pragma omp task affinity\\(iterator\\(integer\\(kind=4\\) i=D\\.\[0-9\]+:5:1\\):b\\\[\\(.* <?i>? \\+ -1\\\]\\) affinity\\(iterator\\(integer\\(kind=4\\) i=D\\.\[0-9\]+:5:1\\):d\\\[\\(\\(integer\\(kind=8\\)\\) i \\+ -1\\) \\* 6\\\]\\)" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma omp task affinity\\(iterator\\(integer\\(kind=4\\) i=D\\.\[0-9\]+:5:1\\):b\\\[\\(.* <?i>? \\+ -1\\\]\\) affinity\\(iterator\\(integer\\(kind=4\\) i=D\\.\[0-9\]+:5:1\\):d\\\[\\(\\(integer\\(kind=8\\)\\) i \\+ -1\\) \\* 6\\\]\\)" 1 "original" } }
! { dg-final { scan-tree-dump-times "#pragma omp task affinity\\(iterator\\(integer\\(kind=4\\) i=1:5:1\\):a\\)\[^ \]" 1 "original" } }

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

@ -1,4 +1,4 @@
! { dg-compile }
! { dg-do compile }
! { dg-options "-Wsurprising" }
! There should be no surprising warnings