From dbc724d6d2073c7f2d1ea4497b4f9714c9b7ec3c Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Sun, 23 Aug 2020 15:48:36 +0100 Subject: [PATCH] Changed to STOP 1 in unlimited_polymorphic_31.f03. 2020-08-23 Paul Thomas gcc/testsuite/ PR fortran/92785 * gfortran.dg/unlimited_polymorphic_31.f03: Change to stop 1. --- gcc/testsuite/gfortran.dg/unlimited_polymorphic_31.f03 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.30.2