2007-01-03 Bernhard Fischer <aldot@gcc.gnu.org>
PR fortran/27698
* match.c (gfc_match_name): Print diagnostics for invalid character
in names.
testsuite/ChangeLog
2007-01-03 Bernhard Fischer <aldot@gcc.gnu.org>
PR fortran/27698
* gfortran.dg/invalid_name.f90: New test.
* gfortran.dg/do_iterator.f90: Adjust pattern for expected error.
* gfortran.dg/gomp/pr29759.f90: Ditto.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120549
138bc75d-0d04-0410-961f-
82ee72b054a4
+2007-01-07 Bernhard Fischer <aldot@gcc.gnu.org>
+
+ PR fortran/27698
+ * match.c (gfc_match_name): Print diagnostics for invalid
+ character in names.
+
2007-01-06 Steven G. Kargl <kargl@gcc.gnu.org>
* array.c: Fix whitespace in comment table.
c = gfc_next_char ();
if (!ISALPHA (c))
{
+ if (gfc_error_flag_test() == 0)
+ gfc_error ("Invalid character in name at %C");
gfc_current_locus = old_loc;
return MATCH_NO;
}
+2007-01-07 Bernhard Fischer <aldot@gcc.gnu.org>
+
+ PR fortran/27698
+ * gfortran.dg/invalid_name.f90: New test.
+ * gfortran.dg/do_iterator.f90: Adjust pattern for expected error.
+ * gfortran.dg/gomp/pr29759.f90: Ditto.
+
2007-01-06 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.dg/present_1.f90: Update error message.
READ(5,*,iostat=i) j ! { dg-error "cannot be redefined" "changing do-iterator 3" }
ENDDO
END
-
+! { dg-error "Invalid character" "character" { target *-*-* } 7 }
!$OMP PARALLEL & ! { dg-error "Unclassifiable OpenMP" }
-!$ NUM_THREADS(2) ! { dg-error "Unclassifiable" }
+!$ NUM_THREADS(2) ! { dg-error "Unclassifiable|Invalid character" }
!$OMP END PARALLEL ! { dg-error "Unexpected" }
!$OMP PARALLEL & ! { dg-error "Unclassifiable OpenMP" }
-!$ & NUM_THREADS(2) ! { dg-error "Unclassifiable" }
+!$ & NUM_THREADS(2) ! { dg-error "Unclassifiable|Invalid character" }
!$OMP END PARALLEL ! { dg-error "Unexpected" }
!$OMP PARALLEL & ! { dg-error "Unclassifiable OpenMP" }
!
-!$ NUM_THREADS(2) ! { dg-error "Unclassifiable" }
+!$ NUM_THREADS(2) ! { dg-error "Unclassifiable|Invalid character" }
!$OMP END PARALLEL ! { dg-error "Unexpected" }
!$OMP PARALLEL & ! { dg-error "Unclassifiable OpenMP" }
!
-!$ & NUM_THREADS(2) ! { dg-error "Unclassifiable" }
+!$ & NUM_THREADS(2) ! { dg-error "Unclassifiable|Invalid character" }
!$OMP END PARALLEL ! { dg-error "Unexpected" }
END PROGRAM
--- /dev/null
+! { dg-do compile }
+! Tests the fix for PR27698, where names not starting with a letter were
+! rejected but not diagnosed with a proper message.
+SUBROUTINE _foo ! { dg-error "Invalid character in name" }
+END
+