public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc/devel/c++-modules] Changed to STOP 1 in unlimited_polymorphic_31.f03.
@ 2020-08-28 16:00 Nathan Sidwell
0 siblings, 0 replies; only message in thread
From: Nathan Sidwell @ 2020-08-28 16:00 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:dbc724d6d2073c7f2d1ea4497b4f9714c9b7ec3c
commit dbc724d6d2073c7f2d1ea4497b4f9714c9b7ec3c
Author: Paul Thomas <pault@gcc.gnu.org>
Date: Sun Aug 23 15:48:36 2020 +0100
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:
---
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
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2020-08-28 16:00 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2020-08-28 16:00 [gcc/devel/c++-modules] Changed to STOP 1 in unlimited_polymorphic_31.f03 Nathan Sidwell
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).