Hi Mikael,

This looks completely "obvious" to me. OK for mainline and, I would
suggest, 13-branch.

Thanks

Paul



On Tue, 19 Mar 2024 at 15:49, Mikael Morin <mikael@gcc.gnu.org> wrote:

> This fixes invalid undeclared fortran array bound variables
> in the testsuite.
>
> gcc/testsuite/ChangeLog:
>
>         * gfortran.dg/graphite/pr107865.f90: Declare array bound
> variable(s)
>         as dummy argument(s).
>         * gfortran.dg/pr101267.f90: Likewise.
>         * gfortran.dg/pr112404.f90: Likewise.
>         * gfortran.dg/pr78061.f: Likewise.
>         * gfortran.dg/pr79315.f90: Likewise.
>         * gfortran.dg/vect/pr90681.f: Likewise.
>         * gfortran.dg/vect/pr97761.f90: Likewise.
>         * gfortran.dg/vect/pr99746.f90: Likewise.
> ---
>  gcc/testsuite/gfortran.dg/graphite/pr107865.f90 | 2 +-
>  gcc/testsuite/gfortran.dg/pr101267.f90          | 2 +-
>  gcc/testsuite/gfortran.dg/pr112404.f90          | 2 +-
>  gcc/testsuite/gfortran.dg/pr78061.f             | 2 +-
>  gcc/testsuite/gfortran.dg/pr79315.f90           | 6 +++++-
>  gcc/testsuite/gfortran.dg/vect/pr90681.f        | 2 +-
>  gcc/testsuite/gfortran.dg/vect/pr97761.f90      | 2 +-
>  gcc/testsuite/gfortran.dg/vect/pr99746.f90      | 2 +-
>  8 files changed, 12 insertions(+), 8 deletions(-)
>
> diff --git a/gcc/testsuite/gfortran.dg/graphite/pr107865.f90
> b/gcc/testsuite/gfortran.dg/graphite/pr107865.f90
> index 6bddb17a1be..323d8092ad2 100644
> --- a/gcc/testsuite/gfortran.dg/graphite/pr107865.f90
> +++ b/gcc/testsuite/gfortran.dg/graphite/pr107865.f90
> @@ -1,7 +1,7 @@
>  ! { dg-do compile }
>  ! { dg-options "-O1 -floop-parallelize-all -ftree-parallelize-loops=2" }
>
> -      SUBROUTINE FNC (F)
> +      SUBROUTINE FNC (F,N)
>
>        IMPLICIT REAL (A-H)
>        DIMENSION F(N)
> diff --git a/gcc/testsuite/gfortran.dg/pr101267.f90
> b/gcc/testsuite/gfortran.dg/pr101267.f90
> index 12723cf9c22..99a6dcfa342 100644
> --- a/gcc/testsuite/gfortran.dg/pr101267.f90
> +++ b/gcc/testsuite/gfortran.dg/pr101267.f90
> @@ -1,7 +1,7 @@
>  ! { dg-do compile }
>  ! { dg-options "-Ofast" }
>  ! { dg-additional-options "-march=znver2" { target x86_64-*-* i?86-*-* } }
> -   SUBROUTINE sfddagd( regime, znt,ite ,jte )
> +   SUBROUTINE sfddagd( regime, znt,ite ,jte, ime, IN )
>     REAL, DIMENSION( ime, IN) :: regime, znt
>     REAL, DIMENSION( ite, jte) :: wndcor_u
>     LOGICAL wrf_dm_on_monitor
> diff --git a/gcc/testsuite/gfortran.dg/pr112404.f90
> b/gcc/testsuite/gfortran.dg/pr112404.f90
> index 573fa28164a..4508bbc8738 100644
> --- a/gcc/testsuite/gfortran.dg/pr112404.f90
> +++ b/gcc/testsuite/gfortran.dg/pr112404.f90
> @@ -1,7 +1,7 @@
>  ! { dg-do compile }
>  ! { dg-options "-Ofast" }
>  ! { dg-additional-options "-mavx2" { target avx2 } }
> -   SUBROUTINE sfddagd( regime, znt, ite, jte )
> +   SUBROUTINE sfddagd( regime, znt, ite, jte, ime, IN )
>     REAL, DIMENSION( ime, IN) :: regime, znt
>     REAL, DIMENSION( ite, jte) :: wndcor_u
>     LOGICAL wrf_dm_on_monitor
> diff --git a/gcc/testsuite/gfortran.dg/pr78061.f
> b/gcc/testsuite/gfortran.dg/pr78061.f
> index 7e4dd3de8b5..9061dea74da 100644
> --- a/gcc/testsuite/gfortran.dg/pr78061.f
> +++ b/gcc/testsuite/gfortran.dg/pr78061.f
> @@ -1,6 +1,6 @@
>  ! { dg-do compile }
>  ! { dg-options "-O3 -fsplit-loops" }
> -      SUBROUTINE SSYMM(C)
> +      SUBROUTINE SSYMM(C,LDC)
>        REAL C(LDC,*)
>        LOGICAL LSAME
>        LOGICAL UPPER
> diff --git a/gcc/testsuite/gfortran.dg/pr79315.f90
> b/gcc/testsuite/gfortran.dg/pr79315.f90
> index 8cd89691ce9..b754a2b3274 100644
> --- a/gcc/testsuite/gfortran.dg/pr79315.f90
> +++ b/gcc/testsuite/gfortran.dg/pr79315.f90
> @@ -10,7 +10,11 @@ SUBROUTINE wsm32D(t, &
>                       its,&
>     ite, &
>     kts, &
> -   kte  &
> +   kte, &
> +   ims, &
> +   ime, &
> +   kms, &
> +   kme  &
>                        )
>    REAL, DIMENSION( its:ite , kts:kte ),                           &
>          INTENT(INOUT) ::                                          &
> diff --git a/gcc/testsuite/gfortran.dg/vect/pr90681.f
> b/gcc/testsuite/gfortran.dg/vect/pr90681.f
> index 03d3987b146..49f1d50ab8f 100644
> --- a/gcc/testsuite/gfortran.dg/vect/pr90681.f
> +++ b/gcc/testsuite/gfortran.dg/vect/pr90681.f
> @@ -1,6 +1,6 @@
>  C { dg-do compile }
>  C { dg-additional-options "-march=armv8.2-a+sve" { target { aarch64*-*-*
> } } }
> -      SUBROUTINE HMU (H1)
> +      SUBROUTINE HMU (H1,NORBS)
>        COMMON DD(107)
>        DIMENSION H1(NORBS,*)
>              DO 70 J1 = IA,I1
> diff --git a/gcc/testsuite/gfortran.dg/vect/pr97761.f90
> b/gcc/testsuite/gfortran.dg/vect/pr97761.f90
> index 250e2bf016e..401ef06e422 100644
> --- a/gcc/testsuite/gfortran.dg/vect/pr97761.f90
> +++ b/gcc/testsuite/gfortran.dg/vect/pr97761.f90
> @@ -1,7 +1,7 @@
>  ! { dg-do compile }
>  ! { dg-additional-options "-O1" }
>
> -subroutine ni (ps)
> +subroutine ni (ps, inout)
>      type vector
>         real  x, y
>      end type
> diff --git a/gcc/testsuite/gfortran.dg/vect/pr99746.f90
> b/gcc/testsuite/gfortran.dg/vect/pr99746.f90
> index fe947ae7ccf..121d67d564d 100644
> --- a/gcc/testsuite/gfortran.dg/vect/pr99746.f90
> +++ b/gcc/testsuite/gfortran.dg/vect/pr99746.f90
> @@ -1,6 +1,6 @@
>  ! { dg-do compile }
>  ! { dg-additional-options "-march=armv8.3-a" { target aarch64-*-* } }
> -SUBROUTINE CLAREF(A, WANTZ, Z, ICOL1, ITMP1, ITMP2, T1, T2, V2)
> +SUBROUTINE CLAREF(A, WANTZ, Z, ICOL1, ITMP1, ITMP2, T1, T2, V2, LDA)
>  LOGICAL            BLOCK, WANTZ
>  COMPLEX            T1, T2, V2
>  COMPLEX            A(LDA, *), VECS, Z(LDA, *)
> --
> 2.43.0
>
>