re PR fortran/70696 ([Coarray] ICE on EVENT POST of host-associated EVENT_TYPE coarray)

	PR fortran/70696
	* gfortran.dg/coarray/event_3.f0: Add save attribue to x.

From-SVN: r268327

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 10f4c267c9fa48d8f902c03e6621582648489a59..108a9dd1a398d68f19d29d9c3458ebb39c3f7ec4 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2019-01-27  Uroš Bizjak  <ubizjak@gmail.com>
+
+       PR fortran/70696
+       * gfortran.dg/coarray/event_3.f0: Add save attribue to x.
+
 2019-01-27  Paul Thomas  <pault@gcc.gnu.org>
 
        Backport from trunk

diff --git a/gcc/testsuite/gfortran.dg/coarray/event_3.f08 b/gcc/testsuite/gfortran.dg/coarray/event_3.f08
index f6e28b78c8db602d39302bd2f2b5522e5f38de2f..60d3193f776da39e17a1991d67f789642dcd67ed 100644 (file)
--- a/gcc/testsuite/gfortran.dg/coarray/event_3.f08
+++ b/gcc/testsuite/gfortran.dg/coarray/event_3.f08
@@ -3,9 +3,9 @@
 ! Check PR fortran/70696 is fixed.
 
 program global_event
-  use iso_fortran_env , only : event_type
+  use iso_fortran_env, only : event_type
   implicit none
-  type(event_type) :: x[*]
+  type(event_type), save :: x[*]
   
   call exchange
   contains