29 lines
636 B
Fortran
29 lines
636 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR 41070: [4.5 Regression] Error: Components of structure constructor '' at (1) are PRIVATE
|
|
!
|
|
! Contributed by Michael Richmond <michael.a.richmond@nasa.gov>
|
|
|
|
MODULE cdf_aux_mod
|
|
IMPLICIT NONE
|
|
|
|
TYPE :: one_parameter
|
|
CHARACTER (8) :: name
|
|
END TYPE one_parameter
|
|
|
|
TYPE :: the_distribution
|
|
CHARACTER (8) :: name
|
|
END TYPE the_distribution
|
|
|
|
TYPE (the_distribution), PARAMETER :: the_beta = the_distribution('cdf_beta')
|
|
END MODULE cdf_aux_mod
|
|
|
|
SUBROUTINE cdf_beta()
|
|
USE cdf_aux_mod
|
|
IMPLICIT NONE
|
|
CALL check_complements(the_beta%name)
|
|
END SUBROUTINE cdf_beta
|
|
|
|
! { dg-final { cleanup-modules "cdf_aux_mod" } }
|
|
|