Subversion Repositories openrisc

! { dg-do run }

! Tests the fix for PR33337, which was partly associated with

! the problem in PR31564 and, in addition, the parentheses in

! the initialization expression for the_chi_square.

!

! Contributed by Michael Richmond 

!

MODULE cdf_nc_chisq_mod

  PUBLIC

  TYPE :: one_parameter

    INTEGER :: high_bound

  END TYPE one_parameter

  TYPE :: the_distribution

    TYPE (one_parameter) :: parameters(1)

  END TYPE the_distribution

  TYPE (the_distribution), PARAMETER :: the_chi_square = &

    the_distribution((/(one_parameter(99))/))

CONTAINS

  SUBROUTINE local_cum_nc_chisq()

    integer :: df0

    df0 = the_chi_square%parameters(1)%high_bound

    print *, df0

  END SUBROUTINE local_cum_nc_chisq

END MODULE cdf_nc_chisq_mod

  use cdf_nc_chisq_mod

  call local_cum_nc_chisq

end

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