diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2007-07-29 20:01:45 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2007-07-29 20:01:45 +0000 |
| commit | d8163f5cc068347dfd74cb03c9e7b6cfcd3a8460 (patch) | |
| tree | 05a77906359d7bd336aba3bd8c097b7414e1f63a /gcc | |
| parent | 6a56381bf7e8825e08ec3a47bc14230528c82462 (diff) | |
| download | gcc-d8163f5cc068347dfd74cb03c9e7b6cfcd3a8460.zip gcc-d8163f5cc068347dfd74cb03c9e7b6cfcd3a8460.tar.gz gcc-d8163f5cc068347dfd74cb03c9e7b6cfcd3a8460.tar.bz2 | |
re PR libfortran/32858 (printf-capabilities for runtime_error())
2007-07-29 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32858
PR libfortran/30814
* configure.ac: Added checks for presence of stdio.h and
stdarg.h. Test presence of vsnprintf().
* configure: Regenerated.
* config.h.in: Regenerated.
* libgfortran.h: Include <stdio.h>. Add printf attribute to
prototype of runtime_error. Remove prototype for st_sprintf.
Add prototype for st_vprintf.
* runtime/main.c (store_exec_path): Replace st_sprintf by sprintf.
* runtime/error.c (st_sprintf): Remove.
(runtime_error): Rewrite as a variadic function. Call
st_vprintf().
* intrinsics/pack_generic.c: Output extents of LHS and RHS for
bounds error.
* io/open.c (new_unit): Replace st_sprintf by sprintf.
* io/list_read.c (convert_integer): Likewise.
(parse_repeat): Likewise.
(read_logical): Likewise.
(read_character): Likewise.
(parse_real): Likewise.
(read_real): Likewise.
(check_type): Likewise.
(nml_parse_qualifyer): Likewise.
(nml_read_obj): Likewise.
(nml_get_ojb_data): Likewise.
* io/unix.c (init_error_stream): Remove.
(tempfile): Replace st_sprintf by sprintf.
(st_vprintf): New function.
(st_printf): Rewrite to call st_vprintf.
* io/transfer.c (require_type): Replace st_sprintf by sprintf.
* io/format.c (format_error): Likewise.
* io/write.c (nml_write_obj): Likewise.
2007-07-29 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32858
PR libfortran/30814
* gfortran.dg/pack_bounds_1.f90: Adjust to new error message.
From-SVN: r127049
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pack_bounds_1.f90 | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 1954fb0..7d4be5e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2007-07-29 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR libfortran/32858 + PR libfortran/30814 + * gfortran.dg/pack_bounds_1.f90: Adjust to new error message. + 2007-07-29 Paul Thomas <pault@gcc.gnu.org> PR fortran/31211 diff --git a/gcc/testsuite/gfortran.dg/pack_bounds_1.f90 b/gcc/testsuite/gfortran.dg/pack_bounds_1.f90 index 94c8eb0..d1e185c 100644 --- a/gcc/testsuite/gfortran.dg/pack_bounds_1.f90 +++ b/gcc/testsuite/gfortran.dg/pack_bounds_1.f90 @@ -1,10 +1,10 @@ ! { dg-do run } ! { dg-options "-fbounds-check" } -! { dg-shouldfail "Incorrect extent in return value of PACK intrinsic" } +! { dg-shouldfail "Incorrect extent in return value of PACK intrinsic; is 4, should be 5" } ! PR 30814 - a bounds error with pack was not caught. program main integer :: a(2,2), b(5) a = reshape((/ 1, -1, 1, -1 /), shape(a)) b = pack(a, a /= 0) end program main -! { dg-output "Fortran runtime error: Incorrect extent in return value of PACK intrinsic" } +! { dg-output "Fortran runtime error: Incorrect extent in return value of PACK intrinsic; is 4, should be 5" } |