This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[committed] Fix ICE with omp declare simd in BLOCK DATA (PR fortran/72716)
- From: Jakub Jelinek <jakub at redhat dot com>
- To: gcc-patches at gcc dot gnu dot org
- Cc: fortran at gcc dot gnu dot org
- Date: Mon, 8 Aug 2016 21:57:13 +0200
- Subject: [committed] Fix ICE with omp declare simd in BLOCK DATA (PR fortran/72716)
- Authentication-results: sourceware.org; auth=none
- Reply-to: Jakub Jelinek <jakub at redhat dot com>
Hi!
We reject the statement later on, because it is not allowed in block data,
but if we stick it into the block data ns anyway, we ICE later on during
diagnostics.
Fixed thusly, bootstrapped/regtested on x86_64-linux and i686-linux,
committed to trunk, queued for 6.2.
2016-08-08 Jakub Jelinek <jakub@redhat.com>
PR fortran/72716
* openmp.c (gfc_match_omp_declare_simd): Don't stick anything into
BLOCK DATA ns, it will be rejected later.
* gfortran.dg/gomp/pr72716.f90: New test.
--- gcc/fortran/openmp.c.jj 2016-07-16 10:41:04.000000000 +0200
+++ gcc/fortran/openmp.c 2016-08-08 15:36:30.638892714 +0200
@@ -2000,6 +2000,12 @@ gfc_match_omp_declare_simd (void)
false) != MATCH_YES)
return MATCH_ERROR;
+ if (gfc_current_ns->is_block_data)
+ {
+ gfc_free_omp_clauses (c);
+ return MATCH_YES;
+ }
+
ods = gfc_get_omp_declare_simd ();
ods->where = where;
ods->proc_name = proc_name;
--- gcc/testsuite/gfortran.dg/gomp/pr72716.f90.jj 2016-08-08 15:47:07.747170888 +0200
+++ gcc/testsuite/gfortran.dg/gomp/pr72716.f90 2016-08-08 15:48:50.036930905 +0200
@@ -0,0 +1,6 @@
+! PR fortran/72716
+! { dg-do compile }
+
+block data
+ !$omp declare simd (z) ! { dg-error "statement is not allowed inside of BLOCK DATA" }
+end block data
Jakub