| Index: gcc/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90
|
| diff --git a/gcc/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90 b/gcc/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90
|
| index 42e19e5a1e099cb59b7ed27026845f47304cb366..34d06da55ac09cd7d0b8c487d1c5bd3e4c10b20e 100644
|
| --- a/gcc/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90
|
| +++ b/gcc/gcc/testsuite/gfortran.dg/maxloc_bounds_5.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,5 +18,5 @@ 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" } }
|
|
|