This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Committed] PR fortran/91359 -- Fix testcases that were munged


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  <kargl@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>
 !

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]