[Bug fortran/20839] do-loop with do-construct-name needs needs end do

[Bug fortran/20839] do-loop with do-construct-name needs needs end do

[steven at gcc dot gnu dot org]

-- 

steven at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |steven at gcc dot gnu dot
                   |dot org                     |org
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2005-09-18 06:02:13         |2005-11-11 17:58:22
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20839

[Bug fortran/20839] do-loop with do-construct-name needs needs end do

[steven at gcc dot gnu dot org]

------- Comment #2 from steven at gcc dot gnu dot org  2005-11-13 12:24 -------
*** Bug 24806 has been marked as a duplicate of this bug. ***


-- 

steven at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |uttamp at us dot ibm dot com


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20839

[Bug fortran/20839] do-loop with do-construct-name needs needs end do

[steven at gcc dot gnu dot org]

------- Comment #3 from steven at gcc dot gnu dot org  2005-11-13 13:56 -------
Created an attachment (id=10230)
 --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=10230&action=view)
patch

I can't think of better wording for the diagnostic.  Some help there would be
appreciated.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20839

[Bug fortran/20839] do-loop with do-construct-name needs needs end do

[uttamp at us dot ibm dot com]

------- Comment #4 from uttamp at us dot ibm dot com  2005-12-09 21:40 -------
I did build and completed the regression test. The patch in comment #3 fixes
this problem (when compiled with -pedantic option) but gfortran still fails to
report this as an error with -std=f95 without -pedantic.

I've created a new patch where I took the Steven's patch and added GFC_STD_F95
along with pedantic check.

About the error message, how about,
"Construct name on END DO at %L does not match the Named DO construct", sounds?

Below, I'm listing the patch for completeness. Can somebody look at it pease?

Thansks,
Uttam

--- gcc_org/gcc/gcc/fortran/parse.c     2005-11-30 09:56:16.000000000 -0800
+++ gcc/gcc/fortran/parse.c     2005-12-09 13:33:32.000000000 -0800
@@ -23,6 +23,7 @@ Software Foundation, 51 Franklin Street,

 #include "config.h"
 #include "system.h"
+#include "flags.h"
 #include <setjmp.h>
 #include "gfortran.h"
 #include "match.h"
@@ -2057,6 +2058,10 @@ loop:
       break;

     case ST_IMPLIED_ENDDO:
+      if ((pedantic || GFC_STD_F95) && gfc_current_block () != NULL)
+           gfc_error_now
+              ("Construct name on END DO at %L does not match the Named DO
construct",
+                   &gfc_current_block()->declared_at);
       break;

     default:


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20839

[Bug fortran/20839] do-loop with do-construct-name needs needs end do

[pault at gcc dot gnu dot org]

------- Comment #5 from pault at gcc dot gnu dot org  2006-06-05 10:25 -------
Fixed on trunk and 4.1

Paul


-- 

pault at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20839