testsuite:
PR fortran/13826
PR fortran/13940
* gfortran.fortran-torture/compile/data_1.f90: New test.
(add second test)
fortran:
* primary.c (match_boz_constant): Use gfc_notify_std() for
issuing a warning or an error.
From-SVN: r81892
2004-05-15 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+ * primary.c (match_boz_constant): Use gfc_notify_std() for
+ issuing a warning or an error.
+
+2004-05-15 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+
PR fortran/13826
* primary.c (match_structure_constructor): Rename ...
(gfc_match_structure_constructor): ... to this. Make non-static.
rname = "octal";
break;
case 'x':
- if (pedantic)
- gfc_warning_now ("Hexadecimal constant at %C uses non-standard "
- "syntax. Use \"Z\" instead.");
+ if (pedantic
+ && (gfc_notify_std (GFC_STD_GNU, "Extension: Hexadecimal "
+ "constant at %C uses non-standard syntax.")
+ == FAILURE))
+ goto backup;
+
/* Fall through. */
case 'z':
radix = 16;
2004-05-15 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/13826
+ PR fortran/13940
* gfortran.fortran-torture/compile/data_1.f90: New test.
2004-05-15 Ulrich Weigand <uweigand@de.ibm.com>
TYPE(a) :: y
DATA y /a(1.)/ ! used to give an error about non-PARAMETER
END
+! this tests the fix for PR 13940
+SUBROUTINE a
+DATA i /x'f95f95f9'/
+END