2018-12-09 Fritz Reese <fritzoreese@gmail.com>
PR fortran/88228
* resolve.c (resolve_operator): Do not call resolve_function.
Break like other cases.
2018-12-09 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/88228
* gfortran.dg/pr88228.f90: New test.
From-SVN: r266926
+2018-12-09 Fritz Reese <fritzoreese@gmail.com>
+
+ PR fortran/88228
+ * resolve.c (resolve_operator): Do not call resolve_function.
+ Break like other cases.
+
2018-12-09 Cesar Philippidis <cesar@codesourcery.com>
* trans-openmp.c (gfc_trans_oacc_combined_directive): Set the
if (op2->ts.type != e->ts.type || op2->ts.kind != e->ts.kind)
gfc_convert_type (op2, &e->ts, 1);
e = logical_to_bitwise (e);
- return resolve_function (e);
+ break;
}
sprintf (msg, _("Operands of logical operator %%<%s%%> at %%L are %s/%s"),
e->ts.type = BT_INTEGER;
e->ts.kind = op1->ts.kind;
e = logical_to_bitwise (e);
- return resolve_function (e);
+ break;
}
if (op1->ts.type == BT_LOGICAL)
+2018-12-09 Steven G. Kargl <kargl@gcc.gnu.org>
+
+ PR fortran/88228
+ * gfortran.dg/pr88228.f90: New test.
+
2018-12-09 Thomas Schwinge <thomas@codesourcery.com>
* gfortran.dg/goacc/combined-directives-3.f90: New file.
--- /dev/null
+! { dg-do compile }
+! { dg-options "-fdec" }
+! PR fortran/88228
+program p
+ integer :: n = .not. 1
+ integer :: j = .true. .or. 1
+end
+