I've committed updated for the testcases for PR fortran/91359.
Both files had "! { dg do run }" instead og "! { dg-do run }",
and for some unexplained reason pr91359_1.f and pr91359_2.f
were identical. Patch attached.
2019-08-07 Steven G. Kargl <ka...@gcc.gnu.org>
PR fortran/91359
* pr91359_2.f: Fix missing hyphen in dg-do
* pr91359_1.f: Ditto. Remove RESULT variable to test actual fix!
--
Steve
Index: gcc/testsuite/gfortran.dg/pr91359_1.f
===================================================================
--- gcc/testsuite/gfortran.dg/pr91359_1.f (revision 274200)
+++ gcc/testsuite/gfortran.dg/pr91359_1.f (working copy)
@@ -1,12 +1,12 @@
-! { dg do run }
+! { dg-do run }
! PR fortran/91359
! Orginal code contributed by Brian T. Carcich <briantcarcich at gmail dot com>
!
- logical function zero() result(a)
+ logical function zero()
goto 2
1 return
-2 a = .false.
- if (.not.a) goto 1
+2 zero = .false.
+ if (.not.zero) goto 1
return
end
Index: gcc/testsuite/gfortran.dg/pr91359_2.f
===================================================================
--- gcc/testsuite/gfortran.dg/pr91359_2.f (revision 274200)
+++ gcc/testsuite/gfortran.dg/pr91359_2.f (working copy)
@@ -1,4 +1,4 @@
-! { dg do run }
+! { dg-do run }
! PR fortran/91359
! Orginal code contributed by Brian T. Carcich <briantcarcich at gmail dot com>
!
