Message ID | trinity-8be7b651-baf0-4d2f-9368-6248f2058fae-1589225449564@3c-app-gmx-bs77 |
---|---|
State | New |
Headers | show |
Series | [committed] PR fortran/95053 - ICE in gfc_divide(): Bad basic type | expand |
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index 1cd0867a941..dd72f44d377 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -1828,7 +1828,8 @@ gfc_divide (gfc_expr *op1, gfc_expr *op2) rc = ARITH_DIV0; break; default: - gfc_internal_error ("gfc_divide(): Bad basic type"); + /* basic type is non-numeric, handle this elsewhere. */ + break; } if (rc == ARITH_DIV0) { diff --git a/gcc/testsuite/gfortran.dg/pr95053.f b/gcc/testsuite/gfortran.dg/pr95053.f new file mode 100644 index 00000000000..1d15c669467 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr95053.f @@ -0,0 +1,7 @@ +! { dg-do compile } +! PR fortran/95053 - ICE in gfc_divide(): Bad basic type +! + 123 FORMAT ('A'/'B') + 132 FORMAT (A/ + + ' B') + END