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 cade2979e45620dcf7f62fe1e5526c47a6f414d9..685f3731cb7d58d44d491b4e66844a5ebf14c1e0 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 2b8a35a9c60c62ba9bbf4385fbede72c71da88b7..5a496405cc6f47154289f8d7f3d4cc72e0084607 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 2b8a35a9c60c62ba9bbf4385fbede72c71da88b7..88a9293879cabfb439c8b4f806d0960a6a12aa27 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>
 !