From: Paul Thomas Date: Sun, 23 Aug 2020 14:48:36 +0000 (+0100) Subject: Changed to STOP 1 in unlimited_polymorphic_31.f03. X-Git-Tag: upstream/12.2.0~14143 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=dbc724d6d2073c7f2d1ea4497b4f9714c9b7ec3c;p=platform%2Fupstream%2Fgcc.git 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. --- diff --git a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_31.f03 b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_31.f03 index 72d90a0..d05ac7c 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