diff options
Diffstat (limited to 'gcc/fortran/trans.c')
| -rw-r--r-- | gcc/fortran/trans.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index f53f75e..09b424c 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -1173,6 +1173,13 @@ gfc_trans_code (gfc_code * code) res = gfc_trans_select (code); break; + case EXEC_SELECT_TYPE: + /* Do nothing. SELECT TYPE statements should be transformed into + an ordinary SELECT CASE at resolution stage. + TODO: Add an error message here once this is done. */ + res = NULL_TREE; + break; + case EXEC_FLUSH: res = gfc_trans_flush (code); break; |