| Index: gcc/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90
|
| diff --git a/gcc/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90 b/gcc/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90
|
| index 2194eee35a40854b5bc19e6c3a87a7bbc61b418a..817bf8fac399562aabc47e5a788c7920b81e2945 100644
|
| --- a/gcc/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90
|
| +++ b/gcc/gcc/testsuite/gfortran.dg/maxloc_bounds_7.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" } }
|
|
|