From aec233aa50c95e84f5f09589e6030a434e77aee6 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Wed, 7 Aug 2019 22:33:27 +0000 Subject: [PATCH] re PR fortran/91359 (logical function X returns .TRUE. - Warning: spaghetti code) 2019-08-07 Steven G. Kargl 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 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/pr91359_1.f | 8 ++++---- gcc/testsuite/gfortran.dg/pr91359_2.f | 2 +- 3 files changed, 11 insertions(+), 5 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index cade2979e45..685f3731cb7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2019-08-07 Steven G. Kargl + + 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 PR c++/67533 diff --git a/gcc/testsuite/gfortran.dg/pr91359_1.f b/gcc/testsuite/gfortran.dg/pr91359_1.f index 2b8a35a9c60..5a496405cc6 100644 --- 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 ! - 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 2b8a35a9c60..88a9293879c 100644 --- 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 ! -- 2.30.2