diff options
Diffstat (limited to 'gcc/fortran/trans.c')
| -rw-r--r-- | gcc/fortran/trans.c | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index b8f0d2d..628c2a0 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -1102,7 +1102,15 @@ gfc_trans_code (gfc_code * code) break; case EXEC_CALL: - res = gfc_trans_call (code, false); + /* For MVBITS we've got the special exception that we need a + dependency check, too. */ + { + bool is_mvbits = false; + if (code->resolved_isym + && code->resolved_isym->id == GFC_ISYM_MVBITS) + is_mvbits = true; + res = gfc_trans_call (code, is_mvbits); + } break; case EXEC_ASSIGN_CALL: |