diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2020-08-23 15:48:36 +0100 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2020-08-23 15:48:36 +0100 |
| commit | dbc724d6d2073c7f2d1ea4497b4f9714c9b7ec3c (patch) | |
| tree | 11eabe26ffa9e940955d280eb75b4c312771cb83 /gcc | |
| parent | 967454a212c7693577a1911e637c3f9f3edc7ccf (diff) | |
| download | gcc-dbc724d6d2073c7f2d1ea4497b4f9714c9b7ec3c.zip gcc-dbc724d6d2073c7f2d1ea4497b4f9714c9b7ec3c.tar.gz gcc-dbc724d6d2073c7f2d1ea4497b4f9714c9b7ec3c.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/unlimited_polymorphic_31.f03 | 2 |
1 files changed, 1 insertions, 1 deletions
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 |