summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/assumed_rank_bounds_1.f90
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/testsuite/gfortran.dg/assumed_rank_bounds_1.f90')
-rw-r--r--gcc/testsuite/gfortran.dg/assumed_rank_bounds_1.f9072
1 files changed, 36 insertions, 36 deletions
diff --git a/gcc/testsuite/gfortran.dg/assumed_rank_bounds_1.f90 b/gcc/testsuite/gfortran.dg/assumed_rank_bounds_1.f90
index fbca70777fc..7fb6a886971 100644
--- a/gcc/testsuite/gfortran.dg/assumed_rank_bounds_1.f90
+++ b/gcc/testsuite/gfortran.dg/assumed_rank_bounds_1.f90
@@ -27,36 +27,36 @@ contains
!print *, lbound(arg)
!print *, id(lbound(arg))
- if (any(lbound(arg) /= [1, 1])) call abort
- if (any(id(lbound(arg)) /= [1, 1])) call abort
+ if (any(lbound(arg) /= [1, 1])) STOP 1
+ if (any(id(lbound(arg)) /= [1, 1])) STOP 2
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) lbound(arg)
- if (buffer /= ' 1 1') call abort
+ if (buffer /= ' 1 1') STOP 3
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) id(lbound(arg))
- if (buffer /= ' 1 1') call abort
+ if (buffer /= ' 1 1') STOP 4
!print *, ubound(arg)
!print *, id(ubound(arg))
- if (any(ubound(arg) /= [3, 8])) call abort
- if (any(id(ubound(arg)) /= [3, 8])) call abort
+ if (any(ubound(arg) /= [3, 8])) STOP 5
+ if (any(id(ubound(arg)) /= [3, 8])) STOP 6
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) ubound(arg)
- if (buffer /= ' 3 8') call abort
+ if (buffer /= ' 3 8') STOP 7
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) id(ubound(arg))
- if (buffer /= ' 3 8') call abort
+ if (buffer /= ' 3 8') STOP 8
!print *, shape(arg)
!print *, id(shape(arg))
- if (any(shape(arg) /= [3, 8])) call abort
- if (any(id(shape(arg)) /= [3, 8])) call abort
+ if (any(shape(arg) /= [3, 8])) STOP 9
+ if (any(id(shape(arg)) /= [3, 8])) STOP 10
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) shape(arg)
- if (buffer /= ' 3 8') call abort
+ if (buffer /= ' 3 8') STOP 11
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) id(shape(arg))
- if (buffer /= ' 3 8') call abort
+ if (buffer /= ' 3 8') STOP 12
end subroutine foo
subroutine bar(arg)
@@ -64,36 +64,36 @@ contains
!print *, lbound(arg)
!print *, id(lbound(arg))
- if (any(lbound(arg) /= [2, -2])) call abort
- if (any(id(lbound(arg)) /= [2, -2])) call abort
+ if (any(lbound(arg) /= [2, -2])) STOP 13
+ if (any(id(lbound(arg)) /= [2, -2])) STOP 14
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) lbound(arg)
- if (buffer /= ' 2 -2') call abort
+ if (buffer /= ' 2 -2') STOP 15
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) id(lbound(arg))
- if (buffer /= ' 2 -2') call abort
+ if (buffer /= ' 2 -2') STOP 16
!print *, ubound(arg)
!print *, id(ubound(arg))
- if (any(ubound(arg) /= [4, 5])) call abort
- if (any(id(ubound(arg)) /= [4, 5])) call abort
+ if (any(ubound(arg) /= [4, 5])) STOP 17
+ if (any(id(ubound(arg)) /= [4, 5])) STOP 18
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) ubound(arg)
- if (buffer /= ' 4 5') call abort
+ if (buffer /= ' 4 5') STOP 19
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) id(ubound(arg))
- if (buffer /= ' 4 5') call abort
+ if (buffer /= ' 4 5') STOP 20
!print *, shape(arg)
!print *, id(shape(arg))
- if (any(shape(arg) /= [3, 8])) call abort
- if (any(id(shape(arg)) /= [3, 8])) call abort
+ if (any(shape(arg) /= [3, 8])) STOP 21
+ if (any(id(shape(arg)) /= [3, 8])) STOP 22
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) shape(arg)
- if (buffer /= ' 3 8') call abort
+ if (buffer /= ' 3 8') STOP 23
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) id(shape(arg))
- if (buffer /= ' 3 8') call abort
+ if (buffer /= ' 3 8') STOP 24
end subroutine bar
subroutine baz(arg)
@@ -101,36 +101,36 @@ contains
!print *, lbound(arg)
!print *, id(lbound(arg))
- if (any(lbound(arg) /= [2, -2])) call abort
- if (any(id(lbound(arg)) /= [2, -2])) call abort
+ if (any(lbound(arg) /= [2, -2])) STOP 25
+ if (any(id(lbound(arg)) /= [2, -2])) STOP 26
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) lbound(arg)
- if (buffer /= ' 2 -2') call abort
+ if (buffer /= ' 2 -2') STOP 27
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) id(lbound(arg))
- if (buffer /= ' 2 -2') call abort
+ if (buffer /= ' 2 -2') STOP 28
!print *, ubound(arg)
!print *, id(ubound(arg))
- if (any(ubound(arg) /= [4, 5])) call abort
- if (any(id(ubound(arg)) /= [4, 5])) call abort
+ if (any(ubound(arg) /= [4, 5])) STOP 29
+ if (any(id(ubound(arg)) /= [4, 5])) STOP 30
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) ubound(arg)
- if (buffer /= ' 4 5') call abort
+ if (buffer /= ' 4 5') STOP 31
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) id(ubound(arg))
- if (buffer /= ' 4 5') call abort
+ if (buffer /= ' 4 5') STOP 32
!print *, shape(arg)
!print *, id(shape(arg))
- if (any(shape(arg) /= [3, 8])) call abort
- if (any(id(shape(arg)) /= [3, 8])) call abort
+ if (any(shape(arg) /= [3, 8])) STOP 33
+ if (any(id(shape(arg)) /= [3, 8])) STOP 34
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) shape(arg)
- if (buffer /= ' 3 8') call abort
+ if (buffer /= ' 3 8') STOP 35
buffer = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
write(buffer,*) id(shape(arg))
- if (buffer /= ' 3 8') call abort
+ if (buffer /= ' 3 8') STOP 36
end subroutine baz
elemental function id(arg)
View Lorry Controller Status