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

re PR fortran/85703 ([openacc] ICE in resolve_fntype, at fortran/resolve.c:16313)

Browse source 
PR fortran/85703

	gcc/fortran/
	* parse.c (decode_oacc_directive): Set gfc_matching_function
	to false.
	(decode_omp_directive): Likewise.

	gcc/testsuite/
	* gfortran.dg/goacc/pr85703.f90: New test.
	* gfortran.dg/gomp/pr85703.f90: New test.

From-SVN: r261551
This commit is contained in:
Cesar Philippidis 2018-06-13 07:31:17 -07:00 • committed by Cesar Philippidis
parent adc41ebeab
commit 0be606d3ce
5 changed files with 34 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View file

@ -1,3 +1,10 @@
2018-06-13 Cesar Philippidis <cesar@codesourcery.com>
PR fortran/85703
* parse.c (decode_oacc_directive): Set gfc_matching_function
to false.
(decode_omp_directive): Likewise.
2018-06-13 Cesar Philippidis <cesar@codesourcery.com>
PR fortran/85702

4
gcc/fortran/parse.c
View file

@ -624,6 +624,8 @@ decode_oacc_directive (void)
gfc_clear_error (); /* Clear any pending errors. */
gfc_clear_warning (); /* Clear any pending warnings. */
gfc_matching_function = false;
if (gfc_pure (NULL))
{
gfc_error_now ("OpenACC directives at %C may not appear in PURE "
@ -795,6 +797,8 @@ decode_omp_directive (void)
gfc_clear_error (); /* Clear any pending errors. */
gfc_clear_warning (); /* Clear any pending warnings. */
gfc_matching_function = false;
if (gfc_current_state () == COMP_FUNCTION
&& gfc_current_block ()->result->ts.kind == -1)
spec_only = true;

6
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,9 @@
2018-06-13 Cesar Philippidis <cesar@codesourcery.com>
PR fortran/85703
* gfortran.dg/goacc/pr85703.f90: New test.
* gfortran.dg/gomp/pr85703.f90: New test.
2018-06-13 Cesar Philippidis <cesar@codesourcery.com>
PR fortran/85702

9
gcc/testsuite/gfortran.dg/goacc/pr85703.f90 Normal file
View file

@ -0,0 +1,9 @@
! PR fortran/85703
! { dg-do compile }
character function f()
!$acc parallel loop reduction(+:a)
do i = 1, 4
end do
!$acc end parallel loop
end

8
gcc/testsuite/gfortran.dg/gomp/pr85703.f90 Normal file
View file

@ -0,0 +1,8 @@
! PR fortran/85703
! { dg-do compile }
character function f()
!$omp single
!$omp end single
f = 'a'
end