blob: afa1cddd163b1542bf0926414372aac4deae6374 [file] [log] [blame]
! { dg-do compile }
!
! Test the fix for PR82168 in which the declarations for 'a'
! and 'b' threw errors even though they are valid.
!
! Contributed by <physiker@toast2.net>
!
module mod
implicit none
integer, parameter :: dp = kind (0.0d0)
type, public :: v(z, k)
integer, len :: z
integer, kind :: k = kind(0.0)
real(kind = k) :: e(z)
end type v
end module mod
program bug
use mod
implicit none
type (v(2)) :: a ! Missing parameter replaced by initializer.
type (v(z=:, k=dp)), allocatable :: b ! Keyword was not working for '*' or ':'
end program bug