Patchwork [Fortran] Coarrays: Add/fix check for no coarrays as result value

login
register
mail settings
Submitter Tobias Burnus
Date Aug. 16, 2011, 9:26 p.m.
Message ID <4E4AE08B.7070505@net-b.de>
Download mbox | patch
Permalink /patch/110242/
State New
Headers show

Comments

Tobias Burnus - Aug. 16, 2011, 9:26 p.m.
Thanks for the report, HJ. And thanks for finding the problem Dominique 
before I could even look at the PR. (I have no idea how the typo ended 
up in my local patch file - it was clearly not present when I regtested 
the patch.)

I have committed the attached patch as obvious - after regtesting. (Rev. 
177799.)

Tobias

H.J. Lu wrote:
> On Thu, Aug 4, 2011 at 8:00 AM, Tobias Burnus<burnus@net-b.de>  wrote:
>> Build and regtested on x86-64-linux.
> This caused: http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50094

Patch

Index: gcc/fortran/ChangeLog
===================================================================
--- gcc/fortran/ChangeLog	(Revision 177797)
+++ gcc/fortran/ChangeLog	(Arbeitskopie)
@@ -1,3 +1,9 @@ 
+2011-08-16  Tobias Burnus  <burnus@net-b.de>
+	    Dominique Dhumieres  <dominiq@lps.ens.fr>
+
+	PR fortran/50094
+	* resolve.c (resolve_symbol): Fix stupid typo.
+
 2011-08-15  Tobias Burnus  <burnus@net-b.de>
 
 	* resolve.c (resolve_symbol): Fix coarray result-var check.
Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c	(Revision 177797)
+++ gcc/fortran/resolve.c	(Arbeitskopie)
@@ -12257,7 +12257,7 @@  resolve_symbol (gfc_symbol *sym)
        || sym->attr.codimension)
       && (sym->attr.result || sym->result == sym))
     {
-      gfc_error ("Function result '%s' at %L shallolvnot be a coarray or have "
+      gfc_error ("Function result '%s' at %L shall not be a coarray or have "
 	         "a coarray component", sym->name, &sym->declared_at);
       return;
     }