gcc/testsuite/gfortran.dg/derived_comp_array_ref_3.f90

   1 ! { dg-do run }
   2 ! Tests the fix for PR33337, which was partly associated with
   3 ! the problem in PR31564 and, in addition, the parentheses in
   4 ! the initialization expression for the_chi_square.
   5 !
   6 ! Contributed by Michael Richmond <michael.a.richmond@nasa.gov>
   7 !
   8 MODULE cdf_nc_chisq_mod
   9   PUBLIC
  10   TYPE :: one_parameter
  11     INTEGER :: high_bound
  12   END TYPE one_parameter
  13   TYPE :: the_distribution
  14     TYPE (one_parameter) :: parameters(1)
  15   END TYPE the_distribution
  16   TYPE (the_distribution), PARAMETER :: the_chi_square = &
  17     the_distribution((/(one_parameter(99))/))
  18 CONTAINS
  19   SUBROUTINE local_cum_nc_chisq()
  20     integer :: df0
  21     df0 = the_chi_square%parameters(1)%high_bound
  22     print *, df0
  23   END SUBROUTINE local_cum_nc_chisq
  24 END MODULE cdf_nc_chisq_mod
  25
  26   use cdf_nc_chisq_mod
  27   call local_cum_nc_chisq
  28 end