mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 13:41:18 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Fortran] avoid ICE in gfc_omp_check_optional_argument (PR93464)

Browse Source 
PR fortran/93464
        * openmp.c (gfc_omp_check_optional_argument): Avoid ICE when
        DECL_LANG_SPECIFIC and GFC_DESCRIPTOR_TYPE_P but not
        GFC_DECL_SAVED_DESCRIPTOR as for local allocatable character vars.

        PR fortran/93464
        * gfortran.dg/goacc/pr93464.f90: New.
This commit is contained in:
Tobias Burnus 2020-01-28 11:54:57 +01:00
parent 1ee3b380df
commit 627d59b6b3
4 changed files with 30 additions and 1 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 @@
2020-01-28 Tobias Burnus <tobias@codesourcery.com>
PR fortran/93464
* openmp.c (gfc_omp_check_optional_argument): Avoid ICE when
DECL_LANG_SPECIFIC and GFC_DESCRIPTOR_TYPE_P but not
GFC_DECL_SAVED_DESCRIPTOR as for local allocatable character vars.
2020-01-28 Tobias Burnus <tobias@codesourcery.com>
* gfortran.texi (Runtime): Remove tailing '.' in @menu.

3
gcc/fortran/trans-openmp.c
View File

@ -101,7 +101,8 @@ gfc_omp_check_optional_argument (tree decl, bool for_present_check)
decl = GFC_DECL_SAVED_DESCRIPTOR (decl);
}
if (TREE_CODE (decl) != PARM_DECL
if (decl == NULL_TREE
|| TREE_CODE (decl) != PARM_DECL
|| !DECL_LANG_SPECIFIC (decl)
|| !GFC_DECL_OPTIONAL_ARGUMENT (decl))
return NULL_TREE;

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2020-01-28 Tobias Burnus <tobias@codesourcery.com>
PR fortran/93464
* gfortran.dg/goacc/pr93464.f90: New.
2020-01-28 Richard Sandiford <richard.sandiford@arm.com>
PR tree-optimization/93434

16
gcc/testsuite/gfortran.dg/goacc/pr93464.f90 Normal file
View File

@ -0,0 +1,16 @@
! { dg-do compile }
!
! PR fortran/93464
!
! Contributed by G. Steinmetz
!
program p
character :: c(2) = 'a'
character, allocatable :: z(:)
!$acc parallel
!$omp target
z = c
!$acc end parallel
!$omp end target
print *, z
end