diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-20 01:37:43 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-20 01:37:43 +0000 |
| commit | 3e677b37cd092b90b84bfb7f39201a1c1a35d2ae (patch) | |
| tree | 8a68fc2c9d48c052a942710d7908b14ec1dd65c4 /gcc/fortran/check.c | |
| parent | 4d708ed40bddaf637f1f69439146e579b05549bd (diff) | |
| download | gcc-3e677b37cd092b90b84bfb7f39201a1c1a35d2ae.tar.gz | |
2007-11-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/33317
* trans-expr.c (gfc_conv_missing_dummy): Revert.
* iresolve.c (gfc_resolve_cshift): Revert.
(gfc_resolve_eoshift): Likewise.
* check.c (gfc_check_cshift): Revert.
(gfc_check_eoshift): Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130304 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 511dce63c12..5b12147d6a0 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -863,7 +863,8 @@ gfc_check_cshift (gfc_expr *array, gfc_expr *shift, gfc_expr *dim) /* TODO: more requirements on shift parameter. */ } - if (dim_check (dim, 2, true) == FAILURE) + /* FIXME (PR33317): Allow optional DIM=. */ + if (dim_check (dim, 2, false) == FAILURE) return FAILURE; return SUCCESS; @@ -1032,7 +1033,8 @@ gfc_check_eoshift (gfc_expr *array, gfc_expr *shift, gfc_expr *boundary, /* TODO: more restrictions on boundary. */ } - if (dim_check (dim, 4, true) == FAILURE) + /* FIXME (PR33317): Allow optional DIM=. */ + if (dim_check (dim, 4, false) == FAILURE) return FAILURE; return SUCCESS; |