diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/allocatable_function_7.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/allocatable_function_7.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/allocatable_function_7.f90 b/gcc/testsuite/gfortran.dg/allocatable_function_7.f90 index 755584ca1b6..6629cd4b366 100644 --- a/gcc/testsuite/gfortran.dg/allocatable_function_7.f90 +++ b/gcc/testsuite/gfortran.dg/allocatable_function_7.f90 @@ -13,11 +13,11 @@ PURE FUNCTION s_to_c(string) ENDFUNCTION s_to_c end interface CHARACTER(LEN=:),ALLOCATABLE :: str -if (s_to_c("ABCdef") /= "ABCdef" .or. len(s_to_c("ABCdef")) /= 6) call abort() +if (s_to_c("ABCdef") /= "ABCdef" .or. len(s_to_c("ABCdef")) /= 6) STOP 1 str = s_to_c("ABCdef") -if (str /= "ABCdef" .or. len(str) /= 6) call abort() +if (str /= "ABCdef" .or. len(str) /= 6) STOP 2 str(1:3) = s_to_c("123") -if (str /= "123def" .or. len(str) /= 6) call abort() +if (str /= "123def" .or. len(str) /= 6) STOP 3 end |