diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/allocatable_function_6.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/allocatable_function_6.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/allocatable_function_6.f90 b/gcc/testsuite/gfortran.dg/allocatable_function_6.f90 index 3af68cc182b..8edb40acff9 100644 --- a/gcc/testsuite/gfortran.dg/allocatable_function_6.f90 +++ b/gcc/testsuite/gfortran.dg/allocatable_function_6.f90 @@ -6,11 +6,11 @@ ! implicit none 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 contains |