diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2020-11-25 20:20:44 +0100 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2020-11-25 20:20:44 +0100 |
| commit | 94172dc7091a2c6b2d2f99857de77c607fac3935 (patch) | |
| tree | ef16798307cc1e140a5e68a5fbda91a39c7d854c | |
| parent | 1049e5408fa343b5bf0a6380212a8ec8dfe2b6fc (diff) | |
| download | gcc-94172dc7091a2c6b2d2f99857de77c607fac3935.zip gcc-94172dc7091a2c6b2d2f99857de77c607fac3935.tar.gz gcc-94172dc7091a2c6b2d2f99857de77c607fac3935.tar.bz2 | |
PR fortran/85796 - Floating point exception with implied do
Catch invalid step=0 in implied do loop within data statements.
gcc/fortran/ChangeLog:
PR fortran/85796
* resolve.c (traverse_data_list): Fix copy&paste errors; catch
step=0 in implied do loop.
gcc/testsuite/ChangeLog:
PR fortran/85796
* gfortran.dg/pr85796.f90: New test.
| -rw-r--r-- | gcc/fortran/resolve.c | 11 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr85796.f90 | 8 |
2 files changed, 17 insertions, 2 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 1641eb6..b6d21ad 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -16327,7 +16327,7 @@ traverse_data_list (gfc_data_variable *var, locus *where) || end->expr_type != EXPR_CONSTANT) { gfc_error ("end of implied-do loop at %L could not be " - "simplified to a constant value", &start->where); + "simplified to a constant value", &end->where); retval = false; goto cleanup; } @@ -16335,7 +16335,14 @@ traverse_data_list (gfc_data_variable *var, locus *where) || step->expr_type != EXPR_CONSTANT) { gfc_error ("step of implied-do loop at %L could not be " - "simplified to a constant value", &start->where); + "simplified to a constant value", &step->where); + retval = false; + goto cleanup; + } + if (mpz_cmp_si (step->value.integer, 0) == 0) + { + gfc_error ("step of implied-do loop at %L shall not be zero", + &step->where); retval = false; goto cleanup; } diff --git a/gcc/testsuite/gfortran.dg/pr85796.f90 b/gcc/testsuite/gfortran.dg/pr85796.f90 new file mode 100644 index 0000000..7868378 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr85796.f90 @@ -0,0 +1,8 @@ +! { dg-do compile } +! PR fortran/85796 - Floating point exception with implied do in data statement + +program p + implicit none + integer :: i, j, x(2,2) + data ((x(i,j),i=1,2,j-1),j=1,2) /3*789/ ! { dg-error "step of implied-do loop" } +end |