diff options
| -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 |