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 72d90a06b3ec49455ad3019ced58c649ac8a9e5f..d05ac7c90c60b121a9f874cbd3291af34ce1af59 100644 (file)
--- 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