diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/host_assoc_function_4.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/host_assoc_function_4.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/host_assoc_function_4.f90 b/gcc/testsuite/gfortran.dg/host_assoc_function_4.f90 index 46fb5f80062..7178cc980cb 100644 --- a/gcc/testsuite/gfortran.dg/host_assoc_function_4.f90 +++ b/gcc/testsuite/gfortran.dg/host_assoc_function_4.f90 @@ -16,7 +16,7 @@ MODULE M2 USE M1 CONTAINS SUBROUTINE S2 - if (s1 () .ne. 1) call abort + if (s1 () .ne. 1) STOP 1 CONTAINS integer function S1 () s1 = 1 |