From 8d891809a76062cac33df81316b766a212b25b4d Mon Sep 17 00:00:00 2001 From: janus Date: Sun, 16 Sep 2012 22:04:26 +0000 Subject: [PATCH] 2012-09-16 Janus Weil PR fortran/54594 * resolve.c (get_checked_tb_operator_target): Add a reference to the relevant quote from the F08 standard. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@191366 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/resolve.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e01ae68..cc97cac 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,6 +1,12 @@ 2012-09-16 Janus Weil PR fortran/54594 + * resolve.c (get_checked_tb_operator_target): Add a reference to the + relevant quote from the F08 standard. + +2012-09-16 Janus Weil + + PR fortran/54594 * interface.c (compare_type_rank): Handle CLASS arrays. 2012-09-16 Janus Weil diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 0748b6a..6a7b6c9 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -11429,7 +11429,7 @@ get_checked_tb_operator_target (gfc_tbp_generic* target, locus where) target_proc = target->specific->u.specific->n.sym; gcc_assert (target_proc); - /* All operator bindings must have a passed-object dummy argument. */ + /* F08:C468. All operator bindings must have a passed-object dummy argument. */ if (target->specific->nopass) { gfc_error ("Type-bound operator at %L can't be NOPASS", &where); -- 2.7.4