28 lines
884 B
Fortran
28 lines
884 B
Fortran
! { 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 <burnus@gcc.gnu.org>
|
|
!
|
|
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" } }
|