Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/derived_comp_array_ref_3.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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 <michael.a.richmond@nasa.gov> ! 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