diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-08-07 22:33:27 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-08-07 22:33:27 +0000 |
| commit | aec233aa50c95e84f5f09589e6030a434e77aee6 (patch) | |
| tree | 2b19a89b78838531756b086ad01d9b84084306c6 /gcc | |
| parent | f2f9d24da809ef490faaef97eb56729a0c3694df (diff) | |
| download | gcc-aec233aa50c95e84f5f09589e6030a434e77aee6.zip gcc-aec233aa50c95e84f5f09589e6030a434e77aee6.tar.gz gcc-aec233aa50c95e84f5f09589e6030a434e77aee6.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr91359_1.f | 8 | ||||
| -rw-r--r-- | 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 cade297..685f373 100644 --- 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 --- 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 --- 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> ! |