[Bug fortran/79866] diagnostics: typo in "Variable %s at %L of type EVENT_TYPE"

["dominiq at lps dot ens.fr" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=79866

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |ASSIGNED
   Last reconfirmed|                            |2017-06-29
                 CC|                            |vehre at gcc dot gnu.org
           Assignee|unassigned at gcc dot gnu.org      |dominiq at lps dot ens.fr
     Ever confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
I am testing the following patch

--- ../_clean/gcc/fortran/resolve.c     2017-05-22 19:20:08.000000000 +0200
+++ gcc/fortran/resolve.c       2017-06-29 16:10:27.000000000 +0200
@@ -14525,7 +14525,7 @@ resolve_symbol (gfc_symbol *sym)
       && !sym->attr.codimension && !sym->ts.u.derived->attr.coarray_comp)
     {
       gfc_error ("Variable %s at %L of type EVENT_TYPE or with subcomponent of
"
-                "type LOCK_TYPE must be a coarray", sym->name,
+                "type EVENT_TYPE must be a coarray", sym->name,
                 &sym->declared_at);
       return;
     }
--- ../_clean/gcc/testsuite/gfortran.dg/coarray_event_2.f08     1970-01-01
01:00:00.000000000 +0100
+++ gcc/testsuite/gfortran.dg/coarray_event_2.f08       2017-06-29
16:13:20.000000000 +0200
@@ -0,0 +1,15 @@
+! { dg-do compile }
+! { dg-options "-fcoarray=lib -lcaf_single" }
+
+! Check that pr70696 is really fixed.
+
+  use iso_fortran_env
+  type(event_type) :: x ! { dg-error "of type EVENT_TYPE or with subcomponent
of type EVENT_TYPE must be a coarray" }
+
+  ! exchange must not be called or the link problem before the patch
+  ! does not occur.
+contains
+  subroutine exchange
+    event post (x[1])
+  end subroutine
+end