diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/deferred_type_param_8.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/deferred_type_param_8.f90 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/testsuite/gfortran.dg/deferred_type_param_8.f90 b/gcc/testsuite/gfortran.dg/deferred_type_param_8.f90 index 3c768c567a7..34a4bb2c1f1 100644 --- a/gcc/testsuite/gfortran.dg/deferred_type_param_8.f90 +++ b/gcc/testsuite/gfortran.dg/deferred_type_param_8.f90 @@ -15,7 +15,7 @@ PROGRAM helloworld n = ceiling(11*rnd) call hello(n, string) ! print '(A,1X,I0)', '>' // string // '<', len(string) - if (n /= len (string) .or. string /= cmp(1:n)) call abort () + if (n /= len (string) .or. string /= cmp(1:n)) STOP 1 end do call test_PR53642() @@ -38,17 +38,17 @@ contains character(:), allocatable :: trimmed trimmed = trim(string) - if (len_trim(string) /= len(trimmed)) call abort () - if (len(trimmed) /= 3) call abort () - if (trimmed /= "123") call abort () + if (len_trim(string) /= len(trimmed)) STOP 2 + if (len(trimmed) /= 3) STOP 3 + if (trimmed /= "123") STOP 4 ! print *,len_trim(string),len(trimmed) ! Clear trimmed = "XXXXXX" - if (trimmed /= "XXXXXX" .or. len(trimmed) /= 6) call abort () + if (trimmed /= "XXXXXX" .or. len(trimmed) /= 6) STOP 5 trimmed = string(1:len_trim(string)) - if (len_trim(trimmed) /= 3) call abort () - if (trimmed /= "123") call abort () + if (len_trim(trimmed) /= 3) STOP 6 + if (trimmed /= "123") STOP 7 end subroutine test_PR53642 end PROGRAM helloworld |