diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/dependent_decls_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/dependent_decls_1.f90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/testsuite/gfortran.dg/dependent_decls_1.f90 b/gcc/testsuite/gfortran.dg/dependent_decls_1.f90 index cca0eae5178..5e863152904 100644 --- a/gcc/testsuite/gfortran.dg/dependent_decls_1.f90 +++ b/gcc/testsuite/gfortran.dg/dependent_decls_1.f90 @@ -16,16 +16,16 @@ contains real :: x(size(xmin)+1) ! The declaration for r would be added real :: r(size(x)-1) ! to the function before that of x xmin = r - if (size(r) .ne. 10) call abort () - if (size(x) .ne. 11) call abort () + if (size(r) .ne. 10) STOP 1 + if (size(x) .ne. 11) STOP 2 end subroutine foo1 subroutine foo2 (xmin) ! This version was OK because of the real, intent(inout) :: xmin(:) ! renaming of r which pushed it up real :: x(size(xmin)+3) ! the symtree. real :: zr(size(x)-3) xmin = zr - if (size(zr) .ne. 10) call abort () - if (size(x) .ne. 13) call abort () + if (size(zr) .ne. 10) STOP 3 + if (size(x) .ne. 13) STOP 4 end subroutine foo2 subroutine foo3 (xmin) real, intent(inout) :: xmin(:) @@ -33,7 +33,7 @@ contains character(len(y)+3) :: z ! This did not work for any combination real :: r(len(z)-5) ! of names. xmin = r - if (size(r) .ne. 10) call abort () - if (len(z) .ne. 15) call abort () + if (size(r) .ne. 10) STOP 5 + if (len(z) .ne. 15) STOP 6 end subroutine foo3 end program bar |