Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/derived_comp_array_ref_3.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +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