diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/class_result_5.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/class_result_5.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/class_result_5.f90 b/gcc/testsuite/gfortran.dg/class_result_5.f90 index c557ed37180..39eeb7bcf4a 100644 --- a/gcc/testsuite/gfortran.dg/class_result_5.f90 +++ b/gcc/testsuite/gfortran.dg/class_result_5.f90 @@ -13,7 +13,7 @@ function foo(string) foo => string select type (foo) type is (character(*)) - if (foo .ne. 'foo') call abort + if (foo .ne. 'foo') STOP 1 foo = 'bar' end select end function @@ -32,7 +32,7 @@ end function select type (res) type is (character(*)) - if (res .ne. 'bar') call abort + if (res .ne. 'bar') STOP 2 end select - if (string .ne. 'bar') call abort + if (string .ne. 'bar') STOP 3 end |