diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/realloc_on_assign_27.f08')
-rw-r--r-- | gcc/testsuite/gfortran.dg/realloc_on_assign_27.f08 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/realloc_on_assign_27.f08 b/gcc/testsuite/gfortran.dg/realloc_on_assign_27.f08 index 9a786299565..e408389a741 100644 --- a/gcc/testsuite/gfortran.dg/realloc_on_assign_27.f08 +++ b/gcc/testsuite/gfortran.dg/realloc_on_assign_27.f08 @@ -12,12 +12,12 @@ type(r) :: y = r (3, 42) x = y - if (x%i /= 3) call abort() + if (x%i /= 3) STOP 1 select type(x) class is (r) - if (x%r /= 42.0) call abort() + if (x%r /= 42.0) STOP 2 class default - call abort() + STOP 3 end select end |