diff options
| author | Dominique d'Humieres <dominiq@lps.ens.fr> | 2017-07-03 20:03:51 +0200 |
|---|---|---|
| committer | Dominique d'Humieres <dominiq@gcc.gnu.org> | 2017-07-03 20:03:51 +0200 |
| commit | 370d975d77562e4f38738cfb7bcb16afa9aeabfb (patch) | |
| tree | bf6d90c789ce0d502811027cf765d4fc76498d63 | |
| parent | 73977c4787a221078c07ec2960153d6eb4d713b3 (diff) | |
| download | gcc-370d975d77562e4f38738cfb7bcb16afa9aeabfb.zip gcc-370d975d77562e4f38738cfb7bcb16afa9aeabfb.tar.gz gcc-370d975d77562e4f38738cfb7bcb16afa9aeabfb.tar.bz2 | |
re PR fortran/79866 (diagnostics: typo in "Variable %s at %L of type EVENT_TYPE")
2017-07-03 Dominique d'Humieres <dominiq@lps.ens.fr>
PR fortran/79866
* resolve.c (resolve_symbol): Fix typo.
PR testsuite/79866
* gfortran.dg/coarray_event_2.f08: New test.
From-SVN: r249934
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 2 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray_event_2.f08 | 13 |
4 files changed, 24 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 3d0b88c..692b8ff 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2017-07-03 Dominique d'Humieres <dominiq@lps.ens.fr> + PR fortran/79866 + * resolve.c (resolve_symbol): Fix typo. + +2017-07-03 Dominique d'Humieres <dominiq@lps.ens.fr> + PR fortran/79843 * symbol.c (check_conflict): Add missing "conflicts". diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index a5f4874..12903a4 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -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; } diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4c99694..681783f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2017-07-03 Dominique d'Humieres <dominiq@lps.ens.fr> + PR testsuite/79866 + * gfortran.dg/coarray_event_2.f08: New test. + +2017-07-03 Dominique d'Humieres <dominiq@lps.ens.fr> + PR testsuite/79843 * gfortran.dg/namelist_3.f90: Adjust the dg-error string. * gfortran.dg/pointer_intent_2.f90: Likewise. diff --git a/gcc/testsuite/gfortran.dg/coarray_event_2.f08 b/gcc/testsuite/gfortran.dg/coarray_event_2.f08 new file mode 100644 index 0000000..20a37f3 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/coarray_event_2.f08 @@ -0,0 +1,13 @@ +! { dg-do compile } +! { dg-options "-fcoarray=lib -lcaf_single" } + +! Check that pr79866 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" } + +contains + subroutine exchange + event post (x[1]) ! { dg-error "Syntax error in EVENT POST statement at .1." } + end subroutine +end |