re PR fortran/91359 (logical function X returns .TRUE. - Warning: spaghetti code)

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!

From-SVN: r274201

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index cade297..685f373 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+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!
+
 2019-08-07  Marek Polacek  <polacek@redhat.com>
 
        PR c++/67533

diff --git a/gcc/testsuite/gfortran.dg/pr91359_1.f b/gcc/testsuite/gfortran.dg/pr91359_1.f
index 2b8a35a..5a49640 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr91359_1.f
+++ b/gcc/testsuite/gfortran.dg/pr91359_1.f
@@ -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
 

diff --git a/gcc/testsuite/gfortran.dg/pr91359_2.f b/gcc/testsuite/gfortran.dg/pr91359_2.f
index 2b8a35a..88a9293 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr91359_2.f
+++ b/gcc/testsuite/gfortran.dg/pr91359_2.f
@@ -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>
 !