diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/allocate_with_source_20.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/allocate_with_source_20.f03 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/allocate_with_source_20.f03 b/gcc/testsuite/gfortran.dg/allocate_with_source_20.f03 index 67b50ec0d85..243214bd962 100644 --- a/gcc/testsuite/gfortran.dg/allocate_with_source_20.f03 +++ b/gcc/testsuite/gfortran.dg/allocate_with_source_20.f03 @@ -14,8 +14,8 @@ program p character(3), parameter :: c = 'abc' character(:), allocatable :: z allocate (z, source=repeat(c(2:1), f())) - if (len(z) /= 0) call abort() - if (z /= "") call abort() + if (len(z) /= 0) STOP 1 + if (z /= "") STOP 2 end |