| Index: gcc/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90
|
| diff --git a/gcc/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90 b/gcc/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90
|
| index 5a38813a72e9d7abed97b3ab6fc36e3b7fb22c12..7ba103d6168ad4e3d32a05c3721fd719ba6a6242 100644
|
| --- a/gcc/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90
|
| +++ b/gcc/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90
|
| @@ -1,6 +1,6 @@
|
| ! { dg-do run }
|
| ! { dg-options "-fbounds-check" }
|
| -! { dg-shouldfail "Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" }
|
| +! { dg-shouldfail "Incorrect extent in return value of MAXLOC intrinsic: is 3, should be 2" }
|
| module tst
|
| contains
|
| subroutine foo(res)
|
| @@ -18,6 +18,6 @@ program main
|
| integer :: res(3)
|
| call foo(res)
|
| end program main
|
| -! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" }
|
| +! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrinsic: is 3, should be 2" }
|
| ! { dg-final { cleanup-modules "tst" } }
|
|
|
|
|