diff options
Diffstat (limited to 'gcc/testsuite/g77.f-torture/execute/auto1.f')
-rw-r--r-- | gcc/testsuite/g77.f-torture/execute/auto1.f | 88 |
1 files changed, 0 insertions, 88 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/auto1.f b/gcc/testsuite/g77.f-torture/execute/auto1.f deleted file mode 100644 index ab9044ceca5..00000000000 --- a/gcc/testsuite/g77.f-torture/execute/auto1.f +++ /dev/null @@ -1,88 +0,0 @@ -* Test automatic arrays. - program auto1 - implicit none - integer i - integer j0(40) - integer j1(40) - integer jc0(40) - integer jc1(40) - common /jc0/ jc0 - common /jc1/ jc1 - - data j0/40*3/ - data j1/40*4/ - - i = 40 - call a1 (j0, j1, i) - - do i = 1, 40 - if (j0(i) .ne. 4) call abort - if (j1(i) .ne. 3) call abort - if (jc0(i) .ne. 6) call abort - if (jc1(i) .ne. 5) call abort - end do - - end - - block data jc - implicit none - integer jc0(40) - integer jc1(40) - common /jc0/ jc0 - common /jc1/ jc1 - - data jc0/40*5/ - data jc1/40*6/ - - end - - subroutine a1 (j0, j1, n) - implicit none - integer j0(40), j1(40), n - integer k0(n,3,2), k1(n,3,2) - integer i,j,k - integer jc0(40) - integer jc1(40) - common /jc0/ jc0 - common /jc1/ jc1 - - do i = 1, 40 - j0(i) = j1(i) - j0(i) - jc0(i) = jc1(i) - jc0(i) - end do - - n = -1 - - do k = 1, 2 - do j = 1, 3 - do i = 1, 40 - k0(i, j, k) = n - k1(i, j, k) = n - end do - end do - end do - - do i = 1, 40 - j1(i) = j1(i) + k0(i, 3, 2) * j0(i) - jc1(i) = jc1(i) + k1(i, 1, 1) * jc0(i) - end do - - n = 500 - - do k = 1, 2 - do j = 1, 3 - do i = 1, 40 - if (k0(i, j, k) .ne. -1) call abort - k0(i, j, k) = n - if (k1(i, j, k) .ne. -1) call abort - k1(i, j, k) = n - end do - end do - end do - - do i = 1, 40 - j0(i) = j1(i) + j0(i) - jc0(i) = jc1(i) + jc0(i) - end do - - end |