[Bug fortran/50554] INQUIRE cannot redefine DO index (r178939)
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50554 --- Comment #5 from Vittorio Zecca --- No problem, it was low priority and with easy workaround. gfortran has much much improved from first time I looked at it around 2005. Keep up the good work!
[Bug fortran/50554] INQUIRE cannot redefine DO index (r178939)
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50554 Tobias Burnus changed: What|Removed |Added Status|NEW |RESOLVED Resolution|--- |FIXED --- Comment #4 from Tobias Burnus --- FIXED on the trunk (4.9). Thanks for the report - and sorry for taking nearly two years to fix it.
[Bug fortran/50554] INQUIRE cannot redefine DO index (r178939)
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50554 Tobias Burnus changed: What|Removed |Added CC||burnus at gcc dot gnu.org --- Comment #3 from Tobias Burnus --- Author: burnus Date: Mon Jul 8 16:13:57 2013 New Revision: 200790 URL: http://gcc.gnu.org/viewcvs?rev=200790&root=gcc&view=rev Log: 2013-07-08 Tobias Burnus PR fortran/50554 * io.c (match_inquire_element): Add missing do-var check. 2013-07-08 Tobias Burnus PR fortran/50554 * gfortran.dg/do_check_9.f90: New. Added: trunk/gcc/testsuite/gfortran.dg/do_check_9.f90 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/io.c trunk/gcc/testsuite/ChangeLog
[Bug fortran/50554] INQUIRE cannot redefine DO index (r178939)
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50554 Thomas Koenig changed: What|Removed |Added Status|ASSIGNED|NEW Assignee|tkoenig at gcc dot gnu.org |unassigned at gcc dot gnu.org
[Bug fortran/50554] INQUIRE cannot redefine DO index (r178939)
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50554 Thomas Koenig changed: What|Removed |Added Status|NEW |ASSIGNED Assignee|unassigned at gcc dot gnu.org |tkoenig at gcc dot gnu.org
[Bug fortran/50554] INQUIRE cannot redefine DO index (r178939)
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50554 kargl at gcc dot gnu.org changed: What|Removed |Added CC||kargl at gcc dot gnu.org --- Comment #2 from kargl at gcc dot gnu.org 2011-10-16 22:35:10 UTC --- (In reply to comment #1) > Confirmed. We need to add a gfc_check_do_variable in io.c's gfc_match_inquire. This patch Index: io.c === --- io.c(revision 180062) +++ io.c(working copy) @@ -3921,6 +3921,9 @@ gfc_match_inquire (void) if (gfc_match_char (')') != MATCH_YES) goto syntax; + if (gfc_check_do_variable (inquire->iolength->symtree)) + goto cleanup; + m = match_io_list (M_INQUIRE, &code); if (m == MATCH_ERROR) goto cleanup; generates laptop:kargl[213] gfc4x -c -Wall foo.f90 foo.f90:2.26: inquire(iolength=I) n 1 foo.f90:1.15: do I=1,10 2 Error: Variable 'i' at (1) cannot be redefined inside loop beginning at (2) foo.f90:2.23: inquire(iolength=I) n 1 Error: Unexpected junk in formal argument list at (1)
[Bug fortran/50554] INQUIRE cannot redefine DO index (r178939)
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50554 Tobias Burnus changed: What|Removed |Added Keywords||accepts-invalid, diagnostic Status|UNCONFIRMED |NEW Last reconfirmed||2011-09-28 CC||burnus at gcc dot gnu.org Ever Confirmed|0 |1 --- Comment #1 from Tobias Burnus 2011-09-28 10:42:40 UTC --- Confirmed. We need to add a gfc_check_do_variable in io.c's gfc_match_inquire.