https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84381
--- Comment #13 from Neil Carlson <neil.n.carlson at gmail dot com> ---
And one more missed file due to a line split between the "call" and "abort".
Here's the patch:
diff --git a/overload_1.f90 b/overload_1.f90
index afd4f81..66fbea4 100644
--- a/overload_1.f90
+++ b/overload_1.f90
@@ -162,8 +162,7 @@ contains
r2 = (/ a.eq.b, a.ne.b, a.lt.b, a.le.b, a.gt.b, a.ge.b /)
if (any (r1.neqv.r2)) STOP 1
if (any (r1.neqv. &
- (/ .false.,.true.,.true., .true., .false.,.false. /) )) call&
- & abort
+ (/ .false.,.true.,.true., .true., .false.,.false. /) )) STOP 3
end subroutine checkt
subroutine checku
@@ -177,7 +176,6 @@ contains
r2 = (/ a.eq.b, a.ne.b, a.lt.b, a.le.b, a.gt.b, a.ge.b /)
if (any (r1.neqv.r2)) STOP 2
if (any (r1.neqv. &
- (/ .false.,.true.,.true., .true., .false.,.false. /) )) call&
- & abort
+ (/ .false.,.true.,.true., .true., .false.,.false. /) )) STOP 4
end subroutine checku
end program main
