From: Paul Thomas <pault@gcc.gnu.org>
Date: Sun, 23 Aug 2020 14:48:36 +0000 (+0100)
Subject: Changed to STOP 1 in unlimited_polymorphic_31.f03.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=dbc724d6d2073c7f2d1ea4497b4f9714c9b7ec3c;p=gcc.git

Changed to STOP 1 in unlimited_polymorphic_31.f03.

2020-08-23  Paul Thomas  <pault@gcc.gnu.org>

gcc/testsuite/
	PR fortran/92785
	* gfortran.dg/unlimited_polymorphic_31.f03: Change to stop 1.
---

diff --git a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_31.f03 b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_31.f03
index 72d90a06b3e..d05ac7c90c6 100644
--- a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_31.f03
+++ b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_31.f03
@@ -27,7 +27,7 @@
       call write_row ('[iarr(::1)]            ', [iarr(::1)])             ! pass in compound constructor, NOT OK
       call write_row ('[(i*10,i=1,size(iarr))]', [(i*10,i=1,size(iarr))]) ! pass in constructor, OK
       call write_row ('10*[(i,i=1,size(iarr))]', 10*[(i,i=1,size(iarr))]) ! pass in constructor, OK
-      if (ibad .gt. 0) stop 'FAILED'
+      if (ibad .gt. 0) stop 1
    contains
       subroutine write_scalar (g1)
          class(*) :: g1