Subversion Repositories openrisc

! { dg-do compile }

! Check the fix for PR32129 in which the argument 'vec(vy(i, :))' was

! incorrectly simplified, resulting in an ICE and a missed error.

!

! Reported by Tobias Burnus 

!

    MODULE cdf_aux_mod

      TYPE :: the_distribution

        INTEGER :: parameters(1)

      END TYPE the_distribution

      TYPE (the_distribution), PARAMETER :: the_beta = the_distribution((/0/))

    CONTAINS

      SUBROUTINE set_bound(arg_name)

        INTEGER, INTENT (IN) :: arg_name

      END SUBROUTINE set_bound

    END MODULE cdf_aux_mod

    MODULE cdf_beta_mod

    CONTAINS

      SUBROUTINE cdf_beta()

        USE cdf_aux_mod

        INTEGER :: which

          which = 1

          CALL set_bound(the_beta%parameters(1:which)) ! { dg-error "Rank mismatch" }

      END SUBROUTINE cdf_beta

    END MODULE cdf_beta_mod

! { dg-final { cleanup-modules "cdf_aux_mod" } }