diff options
Diffstat (limited to 'src/interfaces/ecpg/preproc')
| -rw-r--r-- | src/interfaces/ecpg/preproc/preproc.y | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/interfaces/ecpg/preproc/preproc.y b/src/interfaces/ecpg/preproc/preproc.y index a65c822488c..d3abd002286 100644 --- a/src/interfaces/ecpg/preproc/preproc.y +++ b/src/interfaces/ecpg/preproc/preproc.y @@ -5033,6 +5033,9 @@ coutputvariable : cvariable indicator { } cinputvariable : cvariable indicator { + if ($2 != NULL && (find_variable($2))->type->typ == ECPGt_array) + mmerror(ET_ERROR, "arrays of indicators are not allowed on input"); + add_variable(&argsinsert, find_variable($1), ($2 == NULL) ? &no_indicator : find_variable($2)); } |